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Technology Unlimited 

96, 841 Galaxy Way 
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SSEMBLER 2001 

full featured mnemonic 
assemblei>ciisassembler 




enter save load list run 
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PET BASIC BREAKTHROUGH 

Softside Software 

presents 

SYMBOLIC/STRUCTURED BASIC 



At last. Symbolic/Structured Basic is 

available for your PET 8-32K personal com- 
puter! S-Basic is a pre-compiler that enhan- 
ces the PETs built-in basic monitor with the 
addition of extra-control statements found 
only in the most sophisticated computers. 
WHILE ... GOSUB ... calls a subroutine as 
long as a condition is true. UNTIL . . . GOSUB 
. . . jumps to a subroutine unless the condition 
is true. The IF . . . Then . . . ELSE statement al- 
lows the programmer to command the 
computer to execute instructions if the nor- 
mal IF condition is not met. 

Forget about line numbers, S-Basic al- 
lows you to program naturally only naming 
(numerically or alphabetically!) state- 
ments that you will need to refer to, for ex- 



ample: LOOP/PRINT "HI": GO TO LOOP. S- 
Basic program lines can be up to 255 
characters long, two-and-one-half times as 
long as on standard Basic. S-Basic does not 
compromise any of PET Basic's existing fea- 
tures. All PET Basic commands can be used. 
S-Basic includes an editor with full text ca- 
pabilities, a translator/pre-compiler with its 
own error messages, and the S-Basic loader. 
These programs are recommended for disk- 
based PETs. A printer is optional but sug- 
gested. Cassette copies are available and 
require two cassette drives. Comprehen- 
sive instructions are included. Symbolic- 
/Structured Basic package is available 
complete for an introductory price of 
$35.95. 
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WHILE... .GOTO.... A PET • UNTIL....GOTO.... 

IF ... . THEN .... ELSE PROGRAMMING • SYMBOLIC OPTIONAL 
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PERFECT AIM 




ATTRACTIVE FUNCTIONAL PACKAGING 
FOR YOUR AIM-65 MICROCOMPUTER 

• Professional Appearance 

• Striking Grey and Black 
Color Combination 

• Protects Vital Components 



ENGINEERED SPECIFICALLY FOR 
THE ROCKWELL AIM-65 

• All Switches Accessible 

• Integral Reset Button 
Actuator 

• Easy Paper Tape Replacement 

EASILY ASSEMBLED 

• Absolutely No Alteration 
of AIM-65 Required 

• All Fasteners Provided 

• Goes Together in Minutes 



MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• KydexlOO* 

• Durable 

• Molded-ln Color 

• Non-Conductive 

AVAILABLE FROM STOCK 

• Allow Three to Four Weeks 
for Processing and Delivery 

• No COD's Please 

• Dealer Inquiries Invited 



TO ORDER: 1. Fill in this Coupon (Print or Type Please) 

2. Attach Check or Money Order and Mail to: 



NAME . 

STREET 

CITY 

STATE 

SAE1-1 PLEASE SHIP PREPAID 

@ $43.50 each 
California Residents Please Pay 
$46.33 (Includes Sales Tax) 

SAE1-2 PLEASE SHIP PREPAID 

@ $46.50 each 
California Residents Please Pay 
$49.52 (Includes Sales Tax) 



ZIP 



SAE1-1(s) 



enclosures 
group 

771 bush street 

san francisco, California 94108 



SAE1-2(s) 



*TM Rohm & Hass Patent Applied For 
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PROGRESSIVE SOFTWARE 



Missile— Anti— Missile (Aplsft) 



Presents 
Software and Hardware for your APPLE 

$9.95 





Polar Coordinator Plot 



$9.95 





by TD Moteles 

Tables Generator forms shape tables with ease from direc- 
tional vectors-starting address, length and position of each 
shape. Program saves shape tables anywhere in usable 
memory. 
Murray Summers $9.95 

Sales Forecast provides the best forecast using the four 
most popular forecasting techniques: linear regression, log 
trend, power curve trend, and exponential smoothing. Neil D. 
Lipson $ 9 -95 

Single Drive Copy is a special utility program, written by 
Vince Corsetti in Interger BASIC, that will copy a diskette us- 
ing only one drive. It is supplied on tape and should be load- 
ed on to a diskette. It automatically adjusts for APPLE 
memory size and should be used with DOS 3.2 $19.95 

Curve Fit accepts any number of data points, distributed in 
any fashion, and fits a curve to the set fo points using log 
curve fit, exponential curve fit, least squares, or a power 
curve fit. It will compute the best fit, or employ a specific type 
of fit, and display a graph of the result. By Dave Garson.$9.95 

Touch Typing Tutor teaches typing. Indicates speed and er- 
rors made. Finger Bldrs, Gen. Typing, Basic Language and 
User Supplied. Diskette. Written by Wm. A. Massena. $19.95 

Apple Menu Cookbook index-accessed data storage/retrieval 
program. Recipes stored, umlimited lines per entry. Easy 
editing. Formulated after N.Y. Times Cookbook. Other useful 
features included. Written by Wm. Merlino, M.D. $19.95 

Mailing List Program maintains complete record of name, 
address, phone no., mailing lables accommodated parallel 
card or built-in printer driver.easy data entry 
Diskette. 32K. $19-95 

POSTAGE AND HANDLING 

Please add $1 .25 for the first item and $.75 for each ad- 
ditional item. 

- Programs accepted for publication 

- Highest royalty paid 



Utility Pack combines four versatile programs by Vince Cor- 
setti, for any memory configuration. 

■ Interger to Applesoft conversion: Encounter only those syn- 
tax errors unique to Applesoft after using this program to 
convert any Integer BASIC source. 

■ Disk Append: Merge any two Interger BASIC sources into a 
single program on disk. 

• Interger BASIC copy: Replicate an Integer BASIC program 
from one disk to another.as often as required, with a single 
keystroke. 

- Applesoft Update: Modify Applesoft on the disk to eliminate 
the heading always produced when it is first run. 

- Binary Copy: Automatically determines the length and star- 
ting address of a program while copying its binary file from 
one disk to another in response to a single keystroke. $9.95 

Solitare — Old European peg game, played by one (similar 

to Chinese checkers). Object — to finish with last peg in 

center. 

Charles B. Smith $9.95 

Water The Flowers — Math (add., subt., mult., div,.) grades 

1-6. (disk) 

Judy Pegg $9.95 

Othello one or two players similar to chess in strategy. You 
can win with a single move. Vince Corsetti's program keep 
board details and flip piece. $19.95 

Blockade lets two players compete by building walls to 
obstruct each other. An exciting game written in Integer 
BASIC by Vince Corsetti. $9.95 

Saucer Invasion, Space Maze, Starwars, Rocket Pilot: 
Written by Bob Bishop Each $9.95 

Hardware 

Light Pen with seven supporting routines. The light meter 
takes intensity readings every fraction of a second from to 
588. The light graph generates a display of light intensity on 
the screen. The light pen connects points that have been 
drawn on the screen, in low or high resolution, and displays 
their coordinates. A special utility displays any number of 
points on the screen, for use in menu selection or games, 
and selects a point when the light pen touches it. The 
package includes a light pen calculator and light pen TIC 
TAC TOE. Neil D. Lipson's programs use artificial in- 
telligence and are not confused by outside light. The HIRES 
light pen, only requires 48K and ROM card $34.95 

TO ORDER 

Send Check or Money Order to: 

P.O Box 273 

Plymouth Meeting, PA 19462 

PA residents add 6% sales tax. 



U.S. and foreign dealer and distributor inquires invited 
All programs require 16K memory unless specified 



Applesoft II Shorthand 



If you want to make Applesoft a little easier to use, try 
this program which permits entire commands to be input 
with a single control key. Since the command lookup is 
table driven, you can select the keys to conform to your 
own preferences. The techniques used provide a valuable 
understanding of how to add your own modifications. 



Allen J. Lacy 

1921 W. Oglethorpe 

Albany, GA 31707 



This routine allows a programmer to 
type in an entire Applesoft command with 
the use of one control key. 



Overview 

The routine Shorthand ties into the in- 
put hooks at $38 and $39 (56 and 57 
decimal) and uses a table inside the RAM 
version of Applesoft II. In Applesoft's 
table, each command is represented as 
an ASCII string with the high bit off ex- 
cept for the last character of the string 
which has the high bit set. The routine 
also uses a monitor routine to read a key. 
If it is a control character, shorthand gets 
an address from its internal table. If the 
high byte of the address is 0, the routine 
passes the control character back. If the 
address is not shorthand passes the 
command stored at that location back. 



Step 1 turns DOS off. Step 2 turns 
Shorthand on. Step 3 turns DOS back on. 
But DOS will not be on at the same time 
as shorthand. 



To use with ROM version. 

Shorthand could be adapted to run 
with the ROM version of Applesoft II. 
The addresses in Shorthand would have 
to be changed. I do not have access to a 
ROM card and so do not know the ad- 
dresses. But if the ROM version is just a 
relocated RAM version, the addresses in 
Shorthand and table just need $C800 ad- 
ded to them. 

Shorthand does not use all of the con- 
trol keys because some have special 
functions. These functions are shown in 
Table 1, If you do not mind losing these 



functions, these keys can be used also. 
The choices for which command is tied to 
which key is shown in the program listing. 
If you do not like my choices, you can 
change the command addresses stored 
in Table 2. The addresses are for the RAM 
version and will not work for the ROM ver- 
sion. 

Use Of Shorthand 

Shorthand is relocatable and can be 
placed anywhere in memory. I normally 
load it at $300— $3AE, which is where I 
assembled it. But it can be placed 
anywhere. Applesoft's HIMEM: can be us- 
ed to protect some upper memory. 

Example: 

A 32K system without DOS can have 
Shorthand loaded at $7F51-7FFF and 
then HIMEM: can be set to 32593. 
So to bring up Shorthand use the follow- 
ing steps: 

1. LOAD and RUN the Applesoft 
TAPE 

2. Enter the monitor by pressing 
RESET or do a CALL— 151 

3. Type 
300.3AER 
or type 

7F51.7FFFR 

4. Start tape with Shorthand on it 
and press RETURN, stop the 
tape when it has loaded 

5. Type 
OG 

Press Return 

6. Type 
POKE 1144,0 
Press RETURN 



7. If Shorthand is at $300— $3AE 
type 

POKE 56,0; POKE 57,3 

If Shorthand is at $7F51— $7FFF 

type 

POKE 56,81: POKE 57,127 

8. Press RETURN 

9. If Shorthand is at 7F51 type 
HIMIM: 32593 

Press RETURN 

Another good place to store Shorthand 
is between Applesoft II and your program. 
The problem is that Applesoft's LOMEM: 
does not set the lowest memory used by 
Applesoft, but sets the point at which Ap- 
plesoft will start storing variables. But the 
monitor can be used to set pointers. To 
do this the following steps are used: 

1. LOAD and RUN the Applesoft II 
tape 



2. 



Enter the monitor by pressing 
RESET or do a CALL— 151 



3. Type 
3000.30AER 

4. Start the tape with Shorthand on 
it and press RETURN 

When it has loaded stop the 
tape. 

5. Type 
67: B0 30 
Press RETURN 

6. Type 30AF:0 
30AF:0 

Press RETURN 



7. Type 
0G 
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Press RETURN 


8. 


Type 
NEW 
Press RETURN 


9. 


Type 

POKE 1144,0 

Press RETURN 


10 


Type 

POKE 56,0:POKE '57,48 

Press Return 



Shorthand will now be tied in. 

Step 5 sets the pointer which tells Ap- 
plesoft II where to start storing a program 
to S30B0. Step 6 sets the byte just below 
the start point to 0, 1 do not know why Ap- 
plesoft wants this, but it will bomb if it is 
not done. Step 8 causes Applesoft to 
reset the rest of its pointers to reflect the 
new start point. 

Now every time you want to type one of 
the commands stored in the table just 
press the control key and another key at 
the same time. 

Example: 

To enter INPUT press the control key at 

the same time as the I. 

I have made labels for my keyboard 
showing which command is under which 
key. To return full control to the key 
board, use the command IN 0. To turn 
Shorthand back on just POKE the correct 
values back into 56 and 57. Shorthand 
does not have to be turned off when you 
are finished programing and want to run 
a program, unless the program wants for 



input one of the control keys which Short- 
hand uses. I normally set the hooks when 
I bring up Applesoft and leave them set. 

The routine should work with DOS. I do 
not have DOS so these techniques are 
not tested. Since DOS communicates 
with the rest of the system via the input 
and output hooks at $36—39, you can not 
set the hooks to tie in shorthand without 
turning off DOS. But DOS has its own in- 
ternal hooks. Unfortunately the hooks are 
at different places for different memory 
sizes. In a 48K system the input hook is at 
$A998, $A999 (22120, 22119 decimal). For 
smaller systems subtract 48K— X from 
the numbers, where x is the memory size. 
The above information came from Explor- 
ing the APPLE II DOS by Andy Hertzfeld 
in MICRO 9. So POKE the address of 
Shorthand in the DOS hooks 

Another way that should work is to turn 
DOS off by the use of the following steps. 

1 . After bringing up Applesoft and 

loading Shorthand type 
PR 0:IN O 
Press RETURN 

2 . Use POKEs to set 56 and 57 if 

Shorthand is at $300 
POKE 56,0:POKE57,3 

3 . When you are finished type 

CALL 976 
Press RETURN 



Step 1 turns DOS off. Step 2 turns shor- 
thand back on. DOS will not be on at the 
same time as Shorthand. 



Table 2 



8D0 


END 


8D3 


FOR 


8D6 


NEXT 


8DA 


DATA 


8DE 


INPUT 


8E3 


DEL 


8E6 


DIM 


8E9 


READ 


8ED 


GR 


8EF 


TEXT 


901 


HLIN 


905 


VLIN 


909 


HGR2 


90D 


HGR 


910 


HCOLOR= 


917 


HPLOT 


91C 


DRAW 


920 


XDRAW 


925 


HTAB 


929 


HOME 


92D 


ROT = 


931 


SCALE= 


937 


SHLOAD 


93D 


TRACE 


942 


NOTRACE 


949 


NORMAL 


94F 


INVERSE 


956 


FLASH 


9 5B 


COLOR = 


961 


POP 


964 


VTAB 


968 


HIMEM: 


96E 


LOMEM : 


97 4 


ONERR 


979 


RESUME 


97F 


RECALL 


98 5 


STORE 


98 A 


SPEED= 


990 


LET 


993 


GOTO 


997 


RUN 


99A 


IF 


99C 


RESTORE 


9A3 


& 


9A4 


GOSUB 


9A9 


RETURN 


9AF 


REM 


9B2 


STOP 


9B6 


IN 


9B8 


WAIT 


9BC 


LOAD 


9D0 


CONT 


9D4 


LIST 


9D8 


CLEAR 


9DD 


GET 


9E0 


NEW 


9E3 


TAB( 


9E7 


TO 


9E9 


FN 


9EB 


SPC( 


9EF 


THEN 


9F3 


AT 


9F5 


NOT 


9F8 


STEP 


9FC 


+ 


9FD 


- 


9FE 


* 


9FF 


/ 


A00 


♦ 


A01 


AND 


A04 


OR 


A06 


> 


A 07 


= 


A0 8 


> 


A09 


SGN 


A0C 


INT 


A0F 


ABS 


A12 


USP 


A15 


FRE 


A18 


SCRN( 


AID 


PDL 


A20 


POS 


A23 


SQR 


A 26 


RND 


A 29 


LOG 


A2C 


EXP 


A2F 


COS 


A32 


SIN 


A35 


TAN 


A38 


ATN 


A3B 


PEEK 


A3F 


LEN 


A42 


STR$ 


A46 


VAL 


A49 


ASC 


A4C 


CHRS 


A50 


LEFT$ 


A55 


RIGHTS 


A5B 


MIDS 







Classified Ads 



TEXTPRO: Hardware, Firmware 
and powerful Software. Apple II 
plug-in addition for (1) Text editing, 
(2) Screen editing, (3) programming 
Upper/Lower case, Powerful Super- 
mon-3 2716 EPROM Monitor I.C. 
Complete: 45 page documentation, 
text-processing software (disk) and 
all hardware. 15-minute installa- 
tion. Call collect for information. 
$349. 

TextPro Corporation 
1367 Post St. Studio 19 
San Francisco, Ca 94109 
(415) 775-5708 

PET MACHINE LANG. GUIDE: 
Comprehensive manual to aid the 
machine language programmer. 
More than 30 routines are fully 
detailed so that the reader can put 
them to immediate use. For either 
Old or New ROMs. $6.95 plus .75 
postage. VISA or Mastercharge ac- 
cepted. Order from: 

Abacus Software 

P.O. Box 7211 

Grand Rapids. Ml 49510 

APPLE Jewelry: Tie Tack, Stick Pin, 
or Lapel Pin. 1'" diameter. Your 
choice $4.95 plus 45' postage. 
Quantity discounts available for 10 
or more pieces. Order from: 
C. Armstrong 
P.O. Box 15614 
Columbus, Ohio 43215 

The Life Dynamic Transformation 
Experience on the Apple II with 
48K. In Applesoft and Machine 
Language; Apple II Plus, Disk II. 
Unique! This program is designed 
for all those people who desire to 
experience self-transformation, 
life-awareness, making relation- 
ships work, and "getting your act 
together", but do NOT desire to 
pay est or Lifespring or any of the 
other "trips" of the Human Poten- 
tial Movement, the $300 or so. In- 
cludes game-playing as a means of 
a fun way to increase awareness. 
$15.95 (disc with instructions) 
Order from: 

Avant-Garde Creations 
P.O.Box 30161 Dept. MC 
Eugene, OR. 97403 



23:8 



MICRO — The 6502 Journal 



April, 1980 



} 



The Value of 16 Bits 



Several years ago, the guest 
speaker at the local computer club, 
a gentleman from Texas 
Instruments, talked about the 
importance of the size of a 
microprocessor. Using all kinds of 
charts, tables, and various rather 
logical sounding arguments, he 
determined that 8 bit micros did 
not make any sense and would 
never find much popularity or 
application! A 4 bit micro is all that 
is required in most process control 
situations, and anyone wanting to 
do real computer type stuff 
-number crunching, assembling, 
text processing - would much 
prefer a 16 bit micro. Conclusion: 
the 8 bit micro was doomed. Well, 
hundreds of thousands of 8 bit 
microcomputers later, it is obvious 
that there is a market for the 8 bit 
micro. Isn't 20/20 hindsight 
wonderful! 

Actually, I did not buy this thesis 
at the time it was presented. I had 
worked on a number of projects 
with either minis or a precursor of 
the micros, and had discovered a 
number of instances in which an 8 
bit processor was superior to its 
bigger brother. Does this seem 
strange. Let's examine the details. 

One obvious type of application, 
in which we all participate to some 
degree, is any form of word pro- 
cessing. How many bits does it 
normally take to represent the nor- 
mal alphanumerics and special 
symbols that we use in everyday 
writing, BASIC, assembler pro- 
gramming, and so forth? ASCII 
defines 128 characters, including a 
bunch of specialized control 
codes, and that seems to be 
enough for most applications. 
Even if you want to add special 
sets, such as greek for APL, the 
total number of unique codes re- 
quired is normally going to be less 
than 256 decimal. Can you imagine 



a keyboard to generate more than 
256 characters? Since 8 bits can be 
used to represent 256 unique 
values, it is adequate for this work. 
In fact, it is Ideal. A 16 bit machine 
either must ignore half of each 
byte, which is of course wasteful 
and essentially reduces it to an 8 
bit machine, or must pack two 8 bit 
bytes into each 16 bit word. And 
then it must, of course, unpack the 
two bytes for processing, repack 
them again, and so forth. 
Therefore, the 8 bit micro is perfect 
for most word processing based 
applications. Since this single 
application category must account 
for a large percentage of the 
systems being purchased today, 
the strength of the 8 bit micro 
should not be surprizing. 

Another application I worked on 
used a high speed photo scanner 
to digitize material for use in 
newspaper production - halftones 
and text. The scanner produced 8 
bit chunks of data. The mini- 
computer was 16 bit based, and a 
lot of overhead was spent in pack- 
ing and unpacking data, making 
records come out to an integral 
number of words, and other such 
nonsense. While the fact that 8 bits 
were appropriate to this particular 
application may have been pure 
serendipity, I am sure that there 
are numerous process control 
types of application which have a 
similar data range and which could 
best be served by the 8 bit micro. 

Okay, how about number pro- 
cessing. Surely the 16 bit micro is 
better at performing math func- 
tions than the 8 bit micro. True, 
there is some advantage to a 16 bit 
micro if your application requires a 
lot of number crunching. 16 bit 
math operations can handle twice 
as much data as 8 bit ones. But, 
the savings may be minimal. In 
many numeric calculations, the 



amount of code and time spent ac- 
tually performing math functions 
may be insignificant relative to the 
amounts required to do all of the 
other programming steps required 
-the set up, testing one bit, bran- 
ching, subroutine jumps, and so 
forth. So, while there will probably 
be a time improvement with a 16 bit 
micro in heavy math programs, the 
savings may not be as great as 
initially imagined. 

Where does the 16 bit computer 
excel then? I am not sure that, in 
general, it does. Given the general- 
ly higher cost of the micro, the 
higher cost and complexity of a 16 
bit data bus, and so forth, the 16 bit 
must justify itself for a particular 
application. It is not a generally 
"better" solution. There are some 
features of a typical 16 bit micro 
that would be nice to have in the 8 
bit as well. This is particularly true 
in improved addressing 
capabilities. Since the address 
space of most 8 bit micros is ac- 
tually 16 bits, it would make sense 
in many instances to be able to 
handle the full range of address 
space with 16 bit registers. In the 
6502, a number of 16 bit addressing 
modes are already supported. The 
two main places where the 8 bit 
limit is restrictive are in the relative 
branches and in the indexed 
instructions. The "proposed" 6516 
discussed by Randall Hyde in this 
issue shows how the benefits of a 
16 bit micro can be combined with 
the strengths of the 8 bit micro to 
form a superior computer. It is in- 
teresting to note, however, that 
many of the improvements are not 
based on 16 bits, but are indepen- 
dent enhancements. My latest in- 
telligence suggests that the initial 
statement in the referenced article 
-"Synertek is almost ready to ship 
the SY6516" - is a bit optimistic. 
But, if we all call and ask our 
Synertek Reps about this superior 
product, maybe we can get some 
action! 
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Software for the Apple II * : 
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SCORE =108 



SCORE =105 



DYNAMAZE— a dazzling new real-time game. You 
move in a rectangular game grid, drawing or erasing 
walls to reflect balls into your goal (or to deflect 
them from your opponent's goal). Every ball in 
your goal is worth 100 points, but you lose a point 
for each unit of elapsed time and another point for 
each time unit you are moving. Control the speed 
with a game paddle: play as fast as ice hockey or 
as slowly and carefully as chess. Back up and re- 
play any time you want to; it's a reversible game. 
By Don Stone. Integer Basic (plus machine lan- 
guage); 32 K; $9.95. 



ULTRA BLOCKADE- the standard against which 
other versions have to be compared. Enjoy Block- 
ade's superb combination of fast action (don't be 
the one who crashes) and strategy (the key is 
accessible open space— maximize yours while min- 
imizing your opponent's). Play against another 
person or the computer. New high resolution 
graphics lets you see how you filled in an area— or 
use reversibility to review a game in slow motion 
(or at top speed, if that's your style). This is a 
game that you won't soon get bored with! By 
Don Stone. Integer Basic (plus machine language) ; 
32 K; $9.95. 



What is a REVERSIBLE GAME? You can stop the play at any point, back up and then do an "instant 
replay", analyzing your strategy. Or back up and resume the game at an earlier point, trying out a different 
strategy. Reversibility makes learning a challenging new game more fun. And helps you become a skilled 
player sooner. 



WORLD OF ODYSSEY-a new adventure game utilizing the full power of Disk II, which enables the player 
to explore 353 rooms on 6 different levels full of dragons, dwarfs, ores, goblins, gold and jewels. Applesoft II 
48K; $19.95 includes diskette. 

PERQUACKEY-an exciting vocabulary game which pits the player against the clock. The object of the 
game is to form words from a group of 10 letters which the computer chooses at random. The words must 
be 3 to 10 characters in length with no more than 5 words of any particular length. Each player has only 
3 minutes per turn. The larger the words the higher the score. Applesoft II 16K; $9.95. 

APPLESHIP-is a naval game in which two players enter their ships in respective oceans. Players take turns 
trying to blast their opponent's ships out of the water. The first player to destroy their opponent's ships 
may win the game. A great low-res graphics game. Applesoft II 32K; $14.95. 



Available at your 
local computer store 

Call or write for our free 
SOFTWARE CATALOG 

Apple II is a registered 

trademark of 
Apple Computer, Inc. 



DEALER INQUIRIES INVITED 



POWERSOFT, INC. 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 



Programs Available on Diskette 
at $5.00 Additional 

• Check or Money Order 

• Include $1.00 for 
shipping and handling 

• C.O.D. ($1.00add'tl. charge) 

• Master Charge and VISA 
orders accepted 

• New Jersey residents add 
5% sales tax 



The APPLE Stripper 



One of the classic dilemmas in BASIC has to do with 
REMarks. If you use them, they take up space and time. If 
you do not use them, the code is hard to understand. This 
program resolves the problem. It permits you to 
generously REMark your program for documentation 
purposes and then remove the REMarks for the run-time 
version. 



Bill Crouch 

P.O. Box 926 

Long Beach, CA 90801 



As a writer of custom business soft- 
ware for the APPLE computer,! kept runn- 
ing into the same conflict; good program- 
ming style insisted that I document my 
programs with frequent REMark 
statements. My customers would have a 
hard time understanding or changing my 
programs if I did not. 

On the other hand, large business pro- 
grams use a great deal of memory and 
every byte is precious. The Applesoft 
manual tells us that the statement: 130 
THIS IS A COMMENT uses up 24 bytes of 
memory. In a large program, a lot of 
memory will be taken by REMs, leaving 
less for arrays and program operation. It 
also means more frequent waits while the 
machine "housecleans" its string space. 

The answer is obvious; write the pro- 
gram with REMarks and then remove 
them in the final working version. If 
changes are needed, make them on the 
version with REMarks and then remove 
the REMs again after the bugs have been 
corrected. 

Removing REMs by hand took too long 
so I wrote a simple program to do it for 
me. It is disk based and will work on any 
APPLE with a disk drive. 

Program Requirements 

To use this program you need only 
observe a couple of simple rules. First, 
NEVER GOTO or GOSUB to a REmark. 
Always GOTO or GOSUB to the first line 
of code after the REMark. 

Secondly, for maximum benefits, put 
your REMarks on a separate line rather 
than at the end of a line of code. This pro- 
gram only eliminates those lines where a 
REM is the first thing in the line. 



10 REM 



REM KILLER 



20 REM BY BILL CROUCH 

30 REM PO BOX 926 

40 REM LONG BEACH CA 90801 



50 PRINT CHR$ (4);"MON I,0,C" 
60 DIM ARRAY (1000) 
70 ONERR GOTO 240 
80 X = 
90 REM 

READ TEXT FILE 



100 HOME : REM CLEAR SCREEN 

110 PRINT CHRS (4);"OPEN PROG. FILE" 

120 PRINT CHRS (4), -"READ PROG. FILE" 

130 INPUT L$: REM GET A LINE FROM DISK 

140 IF LEFTS (LS,5) = "63000" GOTO 250: REM CHECK FOR END OF TEXT 

150 IF L$ = "" GOTO 130: REM ELIMINATE NULL STRINGS 

160 LN = 

170 IF 

70 

IF 

IF 

IF 



VAL (LS):LN = INT (LN) : REM SAVE LINE NUMBER 
LEFTS (L$,l) = " THEN L$ = RIGHTS (L$,( LEN (LS) -1)): GOTO 1 



180 
190 
200 

210 
220 
230 



240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 



LEN (L$) < 2 GOTO 130: REM IF LINE USED UP GET ANOTHER 

ASC (L$) < 65 THEN LS = RIGHTS (L$,( LEN (L$) - 1) ) : GOTO 170 

LEFTS (LS,3) = "REM" THEN X = X + 1:ARRAY(X) = LN: REM KEEP TRAC 

K OF REMS 

IF X > 995 GOTO 250: REM STAY WITHIN ARRAY 

GOTO 130: REM DO IT ALL AGAIN 

REM 

WRITE STRIP FILE 

IF PEEK (222) < > 5 GOTO 130: REM CHECK FOR OUT OF DATA ERROR 

PRINT CHRS (4); "CLOSE" 

POKE 216,0: REM CLEAR ONERR GOTO FLAG 

IF X ■ GOTO 340: REM NO REMS IN PROGRAM 

PRINT CHRS (4);"OPEN STRIP. FILE" 

PRINT CHRS (4) , -"WRITE STRIP. FILE" 

FOR Y = 1 TO X 

PRINT ARRAY (Y): REM SAVE LINE t OF REM 

NEXT Y 

PRINT CHRS (4);"CLOSE" 

END 
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How to Use the Programs 

There are two separate programs. The 
first, XFILE.MAKER, must be appended 
to the end of your program. You could 
type it in yourself or, better still, use the 
merge routine on the DOS 3.2 Master. The 
only requirement is that line 63000 be 
after the last line of your program. It tells 
the next program that it is done. 

You start the process with the com- 
mand "RUN 63000" 

You should have both programs on 
their own diskette with plenty of space 
for their text files. If REM KILLER is not 
on the same diskette with XFILE.MAKER, 
remove line #63130. 

XFILE.MAKER will convert your pro- 
gram into a text fie and then run REM 
KILLER. REM KILLER then reads the text 
file, makes a list of REMs and then writes 
them off as STRIP.FILE. 

By the way, certain characters in your 
program will cause the computer to say 
EXTRA IGNORED during the running of 
REM KILLER. You can ignore it too. 

When it is done, load your original pro- 
gram and EXEC STRIP.FILE. Every line 
which is a REMark will be removed. Then 
save the stripped program. 

Of course also save a copy of your 
original program. The first program I used 
this on was part of a trucking company 



package. It saved me over 2400 bytes. 
How it Works 

XFILE.MAKER clears the screen with 
line 63050 and squashes the listing to 
suppress extra carriage returns with line 
63060. 

The rest of the program writes your pro- 
gram to the disk as a text file. Line 63130 
calls REM killer. 

(Note: CHR$(4) is the same as CTRL D 
and is required before every APPLE disk 
command.) 

REM KILLER: Line 60 sets up an array in 
which REMs are saved. It now allows for 
1000 REMs which probanly is too many. If 
you have memory limitations, you may 
reduce this number and the correspon- 
ding one on line 210. 

Line 140 checks for the end of your 
file and is the reason line 63000 is re- 
quired in XFILE.MAKER. 

Lines 150-190 get rid of null lines and 
all non-alpha characters. Line 200 then 
sees if the first alpha string is REM. If so, 
it saves the number in the array. 

Lines 240-340 save the approximate 
line numbers as a text file called 
STRIP.FILE. 

When you EXEC STRIP.FILE, the line 
numbers are prnted just as if you had 
typed them yourself. And the REMark 
lines are eliminated. 



XFILE.MAKER 



63010 REM 



BY BILL CROUCH 

63020 REM PO BOX 926 

63030 REM LONG BEACH CA 90801 



63040 REM APPEND TO END OF PROGRAM 

63050 CALL - 936 

63060 POKE 33,33: REM FORMAT LISTING 

63070 PRINT CHR$ (4);"MON I,0,C": REM 

63080 PRINT CHR$ (4);"OPEN PROG. FILE" 

63090 PRINT CHR$ (4) ; "WRITE PROG. FILE' 

63100 LIST 0,63000 

63110 PRINT CHRS (4);"CLOSE" 

63120 TEXT 

63130 PRINT CHR$ (4);"RUN REM KILLER" 

63140 END 

63150 REM 



^ 



LET US SEE IT WORK 



CHANGE CHR$(4) TO CRTL D FOR INTEGER PROGRAMS 



Classified Ads 



SYM/KIM Appendix $4.25 postpaid, 
(see MICRO, 19:68 for description). 
First bk. of KIM: $10. Combo Ap- 
pen. & 1st bk: $13.50. SYM-1 Hard- 
ware Theory Manual supplements, 
SYM-1 Ref. Manual $6.00. Order 
from: 

Robert A. Peck 

P.O. Box 2231 

Sunnyvale. CA 94087 

Color Graphics for OSI C1P or 
Superboard II. Details on modifica- 
tions enable operation in several 
color graphic modes. Easy installa- 
tion. Includes colored-video game 
for demo, and checkout that runs 
on 4K RAM systems. Low-cost 
hardware not included. Send $8.65 
to: 

Tom Hoffman 

873 Dorset Drive 

Knoxville, TN 37919 

100 percent PET disk oriented 
Macro Assembler/Text Editor 
(MAE) Development software. In- 
cludes a new version of our 
ASSM/TED written specifically for 
the 32K new ROM PET and 2040 
disk drive. Features macros, condi- 
tional and interactive assembly, 
and includes a relocating loader 
program. $169.95 includes diskette 
and manual. Send $1.00 for details. 

Eastern House Software 

3239 Linda Drive 

Winston-Salem, NC 27106 

ATTENTION SYM-1 OWNERS: 
Modify your SYM to have 8K of 
2114 RAM on board with the 
W7AAY piggyback RAM board. 
Bare board plus instructions is 
$5.00 (plus a self addressed, 
stamped envelope per board. The 
new W7AAY RAE-'/i board plugs 
into and extends ROM socket p3 so 
that the two chip version of RAE 
only needs one SYM socket. Com- 
pletely assembled, with instruc- 
tions for $10.00 postpaid in the 
USA. Order from: 

John M. Blalock 

P.O. Box 39356 

Phoenix, AZ 85069 

Advertise in Micro 

An ad in this section may be run for 
$10. per month. Should not exceed 
6 lines. One ad per person (or co.) 
per month. Must relate to 6502 in- 
dustry, be prepaid. Deadline: 25th 
of month. 
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INTRODUCING . . . NIBBLE 

THE REFEBENCE 
FOR APPLE COMPUTING 



nibble 



*.v UJiM 



Eft-INCi nj-F«ii--;;.J. 



NIBBLE IS: 

A SOFTWARE GUIDE for high quality Applications 
Programs for your Home and Business. 

NIBBLE IS: 

A REFERENCE GUIDE to new Programming Methods . 

NIBBLE IS: 

A BUYERS GUIDE for making purchase decisions on 

new products . 

NIBBLE IS: 

A CONSTRUCTION PROJECT COOKBOOK for adding 

function and value to the system you already own. 
NIBBLE IS: 

A COMMUNICATIONS CLEARING HOUSE for users, 
vendors, and associations. 

Each issue of NIBBLE features at least one significant new application program of 
commercial quality. The programs in NIBBLE are surrounded with articles which show 
how to USE the programming methods in your OWN programs. 

Examples of upcoming articles: 

□ Modeling and Forecasting Your Business □ Build a Two-Tape Controller for $ 12 

□ Arcade Shooting Gallery — Save Your Quarters ! □ Data Base Management 
System 1,11,111 

And many many more ! NIBBLE will literally ' 'Nibble Away" at the mysteries of your 
system to help you USE IT MORE. In 1980, the principal featured system is the Apple II. 

Try a NIBBLE 




©1980 by micro-Software Publishing 
and Research Co.. 

Lincoln. Mass. 01773. All rights reserved. 
"Apple 1 1 is a registered trademark of 
Apple Computer Company 



nibble 



BOX 325 Lincoln. Mass. 01773 

I'll try NIBBLE! 

Enclosed is my S15 for 8 issues. 

D check D money order 



Name 



Address. 

City 

State 



Zip_ 




M 



- As manager of Personal Computers, here at Computerland of San Francisco, evaluating new 
software products is part of my job. With all the word processors on the market today, I 
choose EasyWriter for my business and personal use." — Karen Dexter Weiss 



EasyWriter. 



80 COLUMNS OF WORD PROCESSING POWER 

FOR YOUR APPLE II COMPUTER 



You can purchase the new 
EasyWriter 80 column word 
processing system as a com- 
plete hardware and software 
package directly from our new 
office in California, or from 
your local computer dealer. 



Finally. . . INFORMATION 
UNLIMITED SOFTWARE is able 
to bring you a complete word 
processing system for the 
Apple II. The new EasyWriter 
system gives you 80 columns 
of upper and lower case 
characters for your Apple's 
video display, using the new 
SUP'RTERM 1 board! 
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A long time ago, we decided to 
bring you the best simple-to- 
use and understand tools for 
your computer system. Today 
we've taken another stride in 
that same direction. It took 
some doing, in both hardware 
and software, but we think 
you'll agree that for the buck, 
no one can touch us. 



Check it out: 



80 Columns on the Screen! 
Upper & Lower Case! 
- Global Search & Replace! 

• Underlining 1 
Bidirectional Printing! 
Incremental Spacing! 

• File Appending! 

• 50 Pages of Text Per Disk 1 



Information 



Unlimited 
Software; 



ikra 



Information Unlimited Software, Inc. 
793 Vincente St. 
Berkeley. CA 94707 
(415) 525-4046 

- EasyWriter is a TM o< Cao n So'iware. Inc 
Apple II is a TM o' Apple Computers. Inc. 



See The System at the 5th West Coast Computer Fane. 



Graphics and the Challenger C1P, Part 4 



This continuing series on Graphics and the Challenger 
shows how to apply the material to create pictures and 
demonstrates how this may be used in Computer Aided 
Instruction. 



William L. Taylor 

246 Flora Road 

Leavittsburg, OH 44430 



Computers are well suited for use in an 
educational environment, whether this is 
in a class room at a local high school, col- 
lege, or in an industrial training seminar. 
The computer can aid the instructor or 
can be used as an individual instructor. 
With the introduction of the micro pro- 
cessor and the number of low cost per- 
sonal computers that are owned and us- 
ed by individuals as a hobby, the com- 
puter must be considered as a training 
tool for use in the home environment. 

Children seem fascinated by com- 
puters and are equally fascinated by any 
device that has a keyboard. If the com- 
puter has any form of graphics display, 
either animated or still, they seem even 
more delighted to experiment with the 
device. This leads to the point that if 
children are drawn to the computer, then 
the computer, if programmed to be a 
teaching aid, can be a valuable tool in 
their education. 

With this evidence I decided to try to 
develope a program that combines the 
elements that have the most attraction 
for children. Also, through this method, 
the program will at the same time be an 
educational tool. 

The program, which I will call "Picture" 
was developed to be a teaching aid in the 
developement and spelling of English 
words. The program uses Graphics to 
draw a picture of several objects. Then 
the child is asked to spell the different 
parts of the picture that have been 
displayed. The child tries to spell the 
names of the objects displayed, and the 
computer displays the answer "Right" or 
"Wrong" on the screen in large letters. 

In Part 3 of this series ("Graphics and 
the Challenger C1P"), we described the 



features of the C1P. We developed some 
programs using Basic and Machine 
Language, in combination, to further ex- 
plore the Graphics capabilities of the 
C1P. Many techniques were discussed 
and many Basic functions and state- 
ments were used in our example pro- 
grams. This time let's continue with our 
graphics developmenmt and try a new 
programming approach. 



This article has a two-fold purpose. 
First to continue our discussion of how to 
use the Graphics of the OSI Challenger 
C1P, and to secondly present a working 
program using the Graphics techniques 



in a Computer Assisted Instruction pro- 
gram (CAI). The program in this part will 
be used as a CAI tool and will be treated 
as an example program. This program, by 
no means, is complete. That is, it can be 
expanded by the user. The program simp- 
ly is a pure example of how to develop 
graphic plots: get these characters out to 
the monitor screen. Combining these 
Graphics with a program is a useful tool 
in the hands of the enterprising program- 
mer. From the techniques that are 
presented in this example, the user will 
more fully understand how to develop 
such programs of his own. 




Program Description 

Let's start with a description of the 
"picture" program. First, what the pro- 
gram does is to generate a picture on the 
monitor screen. This picture is shown in 
the video memory map plotting chart in 
Figure 1. Notice that we have developed 
routines in the program that will POKE 
characters from the Graphics Set in the 
Character Generator ROM out to the 
monitor screen at the locations shown on 
the chart. In part 3 of this series, I gave a 
similar video memory chart. This time we 
will use the chart as in Figure 1. Notice 
that in the chart, we have drawn the pic- 
ture that we wish to POKE out to the 
screen. All the memory locations can now 
easily be found, and routines written to 
accomplish the end task. Such a routine 
is located in the program between lines 
10000 and 10420. This routine is used to 
draw the House, the Airplane, the Sun, 
the Man and the Car in the picture. All the 
parts of the picture were built from the 
Graphics elements in the Character 
Generator ROM. A list of these character 
elements appears in the upper left corner 
of Figure 1. 

Please examine the program listing, star- 
ting at line 10000. Take the value in the 
statement line, For A = 53606 To 53926 
Step 32. From these statement values 
find the corresponding value on the video 
memory map chart in Figure 1. It will be 
found that when the statement line at 
10000 is compared to the memory map, 
you will be able to see just what the For- 
Next loop does. The Characters will be 
poke'd to these locations. Examine the 
program completely from line 10000 to 
10420 to see how each unit works com- 
pared to the map. This example should 
give you a clear understanding of how to 
use the memory chart so that you can 
develop routines for your own program. 

The program "Picture" contains two 
other Graphics Routines. These routines 
are used with the program to inform the 
user (or student) if he has identified and 
correctly spelled and element on the pic- 
ture, or if he has identified and incorrectly 
spelled the object. These routines display 
the words: Right and Wrong, respectively. 
These words are in large graphic format 
at the top of the C1P's monitor screen. A 
video memory location map of these 
elements are in Figures 2 and 3. Please 
review these two figures for the memory 
locations. The subroutines for these 
graphic displays are located beginning at 
line 20000 for the word "Right" and at line 
5000 for the word "Wrong". 

These two subroutines were developed 
in the same manner as the one for the pic- 
ture. That is, the video memory locations 
were plotted on the video memory plot- 
ting chart. Next, the graphics elements 
that were needed to generate the 
characters were selected from the list of 
graphics elements and finally, routines 
were written to do the task of POKEing 
the elements out to the screen. Analyze 



OK 
LIST 

1 GOSUB SO00 „ rnn|T 

35 PRINT™**** PICTURE **#*"« PRINT 

50 PRINT 

69 PRINT" HELLO IM R COMPUTER MV NflNE 
CHALLENGER" 
78 PRINT: PRINT 

30 PRINT" WHAT IS VOUR NAME?" 
90 INPUT H$ 

180 PRINT: PR I NT "HELLO "AS s" uLAD TO MEET 
110 PRINT: PRINT" THIS IS A SPELLING GAME" 
120 PRINT: PRINT" I WILL SHOW VOU H" 
130 PRINT" PICTURE. VOU ARE TO" 
148 PR I NT "TELL ME THE PARTS" 
150 PRINT" THAT VOU KNOW" 

155 FOR Q=l* TO 10080: NEXT o 
160 POKE 11.. 232: POK 

170 X=USR-::X> 
138 GOSUB 18888 
190 PR I NT: PR I NT" 
280 PRINT" TELL 
210 PRINT: PRINT" 

THE PICTURE" 

INPUT B* 

IF B*="RQOF" THEN A= : 2 

IF B*="CHIMNEV" THEN A=2 
IF B*=" WINDOW" THEN A=2 
IF B*="DCOR" THEN A=2 
IF B*="VARD" THEN A=2 
IF B*="ROOF" THEN A=2 
IF Bt= "CM I MNEV" THEN A=2 

+ 5 +10 +15 



IS 



VOU" 
J A* 



4 ■-, 1C 

i^J 1 •-.' 



DID 'VOU SEE THE PICTURE?' 
ME THE PARTS": PRINT 
SPELL THE PARTS THAT MflKf 



220 

230 

248 

250 

260 

278 

230 

290 



+o 



+ 20 



161= h 
176= ^ 
178= k. 



29 = 






26= -B- 

1= w 

237= |>- 

226= O 
146= B 
147= n 

193= ** 



53379 
53411 
53443 
53475 
53507 
53539 
53571 
53603 
53635 
53667 
53699 
53731 
53763 
53795 
53827 
53859 
53891 
53923 
53955 
53987 
54019 
54051 
54083 
54115 
54147 
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53403 

53435 

53467 

53499 

53531 

53563 

53595 

53627 

53659 

53691 

53723 

53755 

53787 

53819 

53551 

53883 

53915 

53947 

53679 

54011 

54043 

54075 

54107 

54139 

54171 



+ 



+ 5 



+ 10 



- 15 



h20 



C1P Video Memory Map in Decimal 
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309 IF B*="SUN" THEN H=2 1009Q P0KE A, 161! NEXT H 

319 IF B*=" PLANE" THEN A=2 10108 FOR fl=53642 TO 53658 

339 IF fl<>2 THEN GOSUB 5808 18118 POKE fl, 161: NEXT A 

335 IF fl=2 THEN GOSUB 20000 10128 FOR fl=53611 TO 53617 

5O0 GOTO 200 10130 POKE R, 161: NEXT R 

5000 FOR fl=53541 TO 53637 STEP 32 10140 FOR fl=535S'0 TO 53534 

501O POKE A, 161: NEXT R 18158 POKE R, IS is NEXT R 

5820 FOR fl«53544 TO 53640 STEP 32 10160 FOR R=53549 TO 53551 

5030 POKE R, 161: NEXT R i0170 F0KE A, 161: NEXT R 

5O40 POKE 53633, 175: P0KE53639, 10138 POKE 53513,161 
177: POKE 53606, 176: POKE 53687. 173 18198 POKE 53436,171 

5O50 FOR R=53546T053642STEP32 18191 FOR fi=53704 TO 53716 

5060 POKER, 161: NEXTR 18192 POKE R, 161: NEXT R 

5070 POKE 53547, 151: POKE 53343,161: 10193 FOR fl=53736 TO 33743 

POKE 53579,158 10194 POKE fl, 161: NEXT R 

5030 POKE 53530, 175: POKE 53611,177: 18195 FOR R=53763 TO 53730 

POKE 53612,173 10196 P0KE A' 161: NEXT fl 

5098 POKE 53644,161 1Q2m F0R *=53S84 TO 53885 

5108 FOR fl=53550 TO 53646 STEP 32 18285 PuKEA, 161 : NEXT R 

5118 POKE R, 161: NEXT fl 102U7 FOR fl=53336 TO 53S37 

5128 FOR A=53552 TO 53643 STEP 32 1©240 POKE fl, 161. "NEXT R 

5130 POKE fl, 161 :NEXT fl 10250 FOR fl=53396 TO 53901 

5140 POKE 53551, 161: POKE 53647,161 10268 POKE R, 161: NEXT R 

5150 F0Rfl=53554 TO 53658 STEP32 10278 FOR A=53323 TO 53933 

5160 POKE fl, 161: NEXT fl 1*238 POKE A, 161: NEXT fl 

5170 FOR 1=1=53556 TO 53652 STEP 32 10298 FOR fl=53937 TO 53948 

5138 POKE fl, 161: NEXT fl 18388 POKE _fl, 161 : NEXT fl 

5198 POKE 53587; 173 s POKE 53619,177 18318 FOR fl— 53985 TO 5398b' 

5208 FOR fl=53590" TO 53654 STEP 32 10328 POKE R, 161: NEXT R 

5218 POKE fl, 161: NEXT fl 1033W FOR H=53373 TO 53876 

=1220 FOR fl=53532 TO 53728 STEP 32 1834U POKE H, 161: NEXT R 

5230 POKER, 161 -"NEXT fl 10358 FOR R=53341 TO 53344 

5240 FOR fl=53591 TO 53719 STEP 64 15SS P 4! KE H, 161: NEXT R 

5258 POKE fl, 161: NEXT fl 10378 FOR R=53303 TO 53312 

5268 FOR T=l TO 580: NEXT T 10338 POKE R, 161: NEXT R 

=i?7Q X=MSRGO 18398 FOR fl=53388 TO 53301 

5238 RETURN' 18488 POKE fl, 161 .'NEXT fl 

S80Q FOR 0=4872 TO 4895 18482 P0KE53477, 237 

S018 READ F:FOKE Q,F 10485 POKE 53493,226 

3028 NEXT Q 18418 FOR 1=1=53955 TO 53979 

3838 DATA 169,32,168,3,162,8,157,8 18428 POKE fl, 193: NEXT fl 

3848 DATA 283, 232, 283, 258, 233, 24u 10438 FOR D=l TO 50808 NEXT D 

3858 DATA 15,1 36 , 283 , 244 , 1 69 , 283 1 8448 X=USR < X > 

3868 DATA 141,248,15,96 18458 RETURN 

3378 RETURN 28008 FOR A=53509 TO 53637 

1O088 FOR A=53686 TO 53926 STEP 32 STEP 32 

18818 POKE fl, 161: NEXT A 28818 POKE A, 161: NEXT fl 

18028 FOR fl=53687 TO 53927 STEP 32 28828 FOR A=535 1 1 TO 53575 

10038 POKE A, 161: NEXT A STEP 32 

18848 FOR A=53517 TO 53672 STEP 31 28838 POKE A, 161. "NEXT A 

18858 POKE R, 176: NEXT R — :2804U POKE 53607; 178: PGKE53639.- 

10068 FOR fl=53519 TO 53716 STEP 33 177: POKE 53574, 161 : POKE 53518,161 
18078 POKE A, 173: NEXT fl 
18038 FOR A=53673 TO 53683 
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the video memory plotting charts of 
Figure 2 and Figure 3 along with the 
subroutines at lines 5000 and 20000 to 
see how the routines were plotted, writ- 
ten and used in the program. 

The subroutine located between lines 
8000 and 8070 is for loading the machine 
code routine into user memory. This 
routine is for the Fast Screen Erase 
routine used by the program to clear the 
screen whenever called. This subroutine 
will be called at line 1 in the Main Line 
Basic program. The routine for the fast 
screen erase has been included in the 
previous parts of this series. The reader 
should review these parts for a complete 
description fo this routine. 

Now that I have described the Graphics 
generating routines and how they were 
developed, let's continue with the Main- 
line BASIC program that uses the 
subroutines. The program from line 35 
through 500 forms the BASIC CAI user 
program. This program is a demonstra- 
tion of It- to develope programs in 
which thr jse can be taught such things 
as spellin i which is the purpose of this 
program, ombined with the graphics 
pres 'ation. 

The For-Next loop at line 155 is used to 
give the user time to read the screen text 
just displayed. Statement line 160 sets 
the USR Vector to point to the Fast 
Screen Erase Machine Language routine 
located at OFE8 hex or 8168 decimal. Line 
170 causes the program to jump to the 
machine language routine at OFE8 ot 
8168 decimal where the screen will be 
erased. 

Input from the user is accepted at state 
ment line 220. This data is stored in a 
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string variable, labeled B$. The input str- 
ing (B$) is then compared in the string 
looking up table for a string match. If a 
match between the input and a table con- 
tent is found, the information is then 
passed to the variable A as a decimal 
value. This value is then compared at Line 
330 and Line 335 to check for a correct 
answer from the user. If a correct match 
was found in the string table, the A 
variable will force a GOSUB to Line 20000 
where the answer word "Right" will be 
displayed for the user's answer. If a 
match did not occur in the string table, at 
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line 330 a GOSUB to line 5000 will cause 
the answer word "WRONG" to be 
displayed informing the user that the 
answer was not correct or was not an ele- 
ment in the picture. At line 500 a return to 
the beginning of the BASIC Main-Line 
program will cause a new pass through 
the program. 

This program, as stated before, is not 
really complete, but an example to show 
how such a program can be constructed. 
This program can be expanded or 
modified by the reader. If you should 
desire to expand the picture display to in- 
clude more ojects, then these object 
names should be included in the string 
table. 

The complete program including the 
Graphics routines and the fast screen 
erase routine is located at the top of the 
first 4K of user memory. If you have more 
memory and wish to expand the program, 
you will have to relocate this routine. 
Listing 2, shows the modifications to the 
program which will allow the routine to be 
relocated to begin at 1FE8 Hex or 8168 
decimal. The user must set memory size 
to 4050 decimal for a system with 4K of 
memory, and 8167 for a 8 K system. 



160 POKE 11,232 : POKE 12, 31 
8000 FOR Q = 8168 TO 8191 
8050 DATA 31,136,208,244,169,208 
8060 DATA 141,240,31,96 



+0 



+ 5 



+ 10 



+ 15 



+ 20 



23:18 



MICRO — The 6502 Journal 



April, 1980 



20945 POKE 53575, 175= POKE 53606,162: 

POKE 53574, 154 
20050 FOR fl=53513 TO 53641 STEP 32 
20Q60 POKE fl, 161: NEXT fi 
20Q65 POKE 53545,32 

20070 FOR fl=53579 TO 53643 STEP 32 
20630 POKE fi, 161: NEXT fi 
20090 FOR fi=53531 TO 53709 STEP 32 
20100 POKE fi, 161: NEXT R 

20110 POKE 53580, 161: POKE 53644,161: 

POKE 53703, 161 
20140 FOR fl=53519 TO 53647 STEP 32 
20150 POKE fi, 161: NEXT fi 
20160 FOR fl=53535 TO 53649 STEP 32 
20170 POKE fi, 161 -'NEXT fi 
29130 POKE 53534, 161 

2O190 FOR 1=1=53524 TO 53652 STEP 32 
202O0 POKEfi, 161: NEXT fi 

20210 POKE 53523, 161: POKE 53525,161 
20230 FOR E=l TO 580: NEXT E 
26240 X=USR-;X> 
20250 RETURN 
OK 



OHIO SCIENTIFIC 



HARDWARE: C1 P VIDEO— Gives true 32 Chars/Line with 
guard bands. This is not a make-shift mod. It makes your 
video every bit as good as the 4P's plus you have switch 
selectable 1, 2 and 3 MHz. CPU clock as well as 300, 600 
and 1200 baud for cassette and serial port all crystal 
controlled. 

Complete Plans — $18.95 Kit — $39.95 

or Send in your C1P to: 

Personal & Business Computer Connection 

38437 Grand River 

Farmington Hills, Ml. 48018 

and we will install the video mod. for $79.95. Other mods 
available.. .Add sound: RS-232 port cassette motor con- 
trol 

SOFTWARE: (With Documentation) For CI, C2, 4P & 8P. 
Chess 1.9, Backgammon, Excellent card games, Arcade 
type games, Utility Programs, Mini Word Processor, 
Memory Maps, etc. 

Catalog With Free Program (hard copy) and Memory 
Map for BASIC in ROM Models.. .$1.00 

Progressive Computing 

3336 Avondale Court 

Windsor, Ontario, Canada N9E 1X6 

(519)969-2500 

NOTE: Any Modification will VOID your OSI warranty. 



WHAT'S THE ONE THING 

NO ONE HAS THOUGHT 

ABOUT DOING WITH 

COMPUTERS? 



We acknowledge that computers are the most valuable 
data processing devices ever conceived for business and educa- 
tion, and are the most creative toys on earth. However, the 
potential of computers has only begun to be explored. Avant- 
Garde Creations has discovered and developed a way to use 
computers in the areas of self-transformative experiences, life- 
awareness, making relationships work, and "getting your act 
together". 

Previously, it was thought that such trips as est, Lifespring, 
Actualizations, and others were the only means of significantly 
dealing with the above areas. We acknowledge that they are in- 
deed valuable experiences. But because one has to devote many 
full days and hundreds of dollars to such trips, all those people 
who aren't yet ready to get into all this that deeply are left "with 
nowhere to turn for such awareness experiences. 

The intention of Avant-Garde Creations is to change that. We 
have the knowledge and techniques, and now we have the pro- 
grams. The first is called "The Life Dynamic Transformation 
Experience", and the second is "The Relationship Life Dynamic". 
Both are available on disk at this time. Over the next year 9 more 
life dynamic areas programs will be developed in the follow- 
ing areas: physical, creativity, environment, meaning, condition- 
ing, sexuality, normalcy, aliveness, and responsibility. 

Why spend hundreds of dollars to find out if you're into work- 
ing on such areas of your life? Why not get something you can 
use over and over, at your convenience? 

One of the most exciting aspects of our programs is that in 
many program sections, it was discovered that "game-playing" 
was the most effective method of getting people to perceive a 
difficult truth. So from time to time you're given 100% origi- 
nal games to play, games specifically designed to give you the 
opportunity to "get" something challenging or elusive. So even if 
you don't "get" something, you'll have a great time! 

Apple II with Applesoft and 48K required with single disk drive. 

The Life Dynamic Transformation Experience. . $15.95 postpaid 

The Relationship Life Dynamic $15.95 postpaid 

Complete Program Listings available: 

The Life Dynamic Transformation Experience. . . $4.95 postpaid 

The Relationship Life Dynamic $4.95 postpaid 



If you don't have an 
Apple II with Applesoft, 
there are approximately 
5 Apple stores in every 
state. We'll send you the 
address of the one near- 
est you. Your Apple deal- 
er will be glad to give or 
rent you (very cheaply) 
some time on one of their 
computers, and will be 
happy to get you started 
running the program. In 
case you think you need 
to understand computers 
to run our programs, we 
assure you that if you can 
read English and type 
your name, you won't 
have any problem. 




AV ANT-GARDE CREATIONS 

PO Box 301 61 Eugene. OR 97403 Dept CI 
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SYM-1, 6502-BASED MICROCOMPUTER 

FULLY-ASSEMBLED AND COMPLETELY INTEGRATED SYSTEM that's 
ready-to-use 

ALL LSI IC'S ARE IN SOCKETS 

28 DOUBLE-FUNCTION KEYPAD INCLUDING UP TO 24 "SPECIAL" 
FUNCTIONS 

EASY-TO-VIEW 6-DIGIT HEX LED DISPLAY 
KIM-1" HARDWARE COMPATIBILITY 

The powerful 6502 8-Bit MICROPROCESSOR whose advanced 
architectural features have made it one of the largest selling "micros 
on the market today. 

THREE ONBOARD PROGRAMMABLE INTERVAL TIMERS available to 
the user, expandable to five on-board. 

4K BYTE.ROM RESIDENT MONITOR and Operating Programs. 
Single 5 Volt power supply is all that is required. 

IK BYTES OF 2114 STATIC RAM onboard with sockets provided for 
immediate expansion to 4K bytes onboard, with total memory expan- 
sion to 65, 536 bytes. 

USER PROM/ROM: The system is equipped with 3 PROM/ROM ex- 
pansion sockets for 2316/2332 ROMs or 2716 EPROMs 
ENHANCED SOFTWARE with simplified user interface 
STANDARD INTERFACES INCLUDE: 
— Audio Cassette Recorder Interface with Remote Control (Two 

modes: 135 Baud KIM-1* compatible, Hi-Speed 1500 Baud) 
— Full duplex 20mA Teletype Interface 
— System Expansion Bus Interface 
— TV Controller Board Interface 
—CRT Compatible Interface (RS-232) 

APPLICATION PORT: 15 Bi-directional TTL Lines for user applications 
with expansion capability for added lines 

EXPANSION PORT FOR ADD-ON MODULES (51 I/O Lines included in 
the basic system) 

SEPARATE POWER SUPPLY connector for easy disconnect of the d-c 
power 
AUDIBLE RESPONSE KEYPAD 




Synertek has enhanced KIM-1 ' software as well as the hardware. The 
software has simplified the user interface. The basic SYM-1 system is 
programmed in machine language. Monitor status is easily accessible, 
and the monitor gives the keypad user the same full functional capabili- 
ty of the TTY user. The SYM-1 has everything the KIM-1 * has to offer, 
plus so much more that we cannot begin to tell you here. So, if you want 
to know more, the SYM-1 User Manual is available, separately. 
SYM-1 Complete w/manual$ $229.00 

SYM-1 User Manual Only 7.00 

SYM-1 Expansion Kit 60.00 

Expansion includes 3K of 2114 RAM chips and 1-6522 I/O chip. 
SYM-1 Manuals: The well organized documentation package is com- 
plete and easy-to-understand. 

SYM-1 CAN GROW AS YOU GROW. Its the system to BUILD-ON. Ex- 
pansion features that are soon to be offered: 

■BAS-1 8K Basic ROM (Microsoft) $89.00 

"KTM-2 TV Interface Board 319.00 

*We do honor Synertek discount coupons 



QUALITY EXPANSION BOARDS DESIGNED SPECIFICALLY FOR KIM-1, SYM-1 & AIM 65 

These boards are set up for use with a regulated power supply such as the one below, but, provisions have been made so that you can add 

onboard regulators for use with an unregulated power supply. But, because of unreliability, we do not recommend the use of onboard 

regulators. All I.C.'s are socketed for ease of maintenance. All boards carry full 90-day warranty. 

All products that we manufacture are designed to meet or exceed industrial standards. All components are first qualtiy one I meet full 

manufacturer's specifications. All this and an extended burn-in is done to reduce the normal percentage of field failures by up to 75 /o^To you 

this means the chance of inconvenience and lost time due to a failure is very rare; but, if it should happen, we guarantee a turn-around time ot 

less than forty-eight hours for repair. 

Our money back guarantee: If, for any reason you wish to return any board that you have purchased directly from us within ten (10) days after 

receipt, complete, in original condition, and in original shipping carton,- we will give you a complete credit or refund less a $10.00 restocking 

charge per board. ^^^^^^^^^^^^^_^^^^_^^^^^^^^^^_^^__^^__ 



VAK-1 8 -SLOT MOTHERBOARD 

This motherboard uses the KIM-4" bus structure. It provides eight (8) 
expansion board sockets with rigid card cage. Separate jacks for audio 
cassette, TTY and power supply are provided. Fully buffered bus. 
VAK-1 Motherboard $139.00 

VAK-2/4 16K STATIC RAM BOARD 

This board using 21 14 RAMs is configured in two (2) separately 
addressable 8K blocks with individual write-protect switches. 

VAK-2 16K RAM Board with only $239.00 

8K of RAM ( ft populated) 
VAK-3 Complete set of chips to $125.00 

expand above board to 16K 
VAK-4 Folly populated 16K RAM $325.00 

VAK-5 2708 EPROM PROGRAMMER 

This board requires a +5 VDC and +12 VDC, but has a DC to DC 



multiplyer so there is no need for an additional power supply. All 
software is resident in on-board ROM, and has a zero-insertion socket. 



VAK-5 2708 EPROM Programmer 



$249.00 



VAK-6 EPROM BOARD 

This board will hold 8K of 2708 or 2758, or 16K of 2716 or 2516 
EPROMs. EPROMs not included. 

VAK-6 EPROM Board $11900 

VAK-7 COMPLETE FLOPPY-DISK SYSTEM ts<*> Ma ' ch lssue °' Mic "» 



VAK-8 PROTYPING BOARD 

This board allows you to create your own interfaces to plug into the 
motherboard. Etched circuitry is provided for regulators, address and 
data bus drivers; with a large area for either wire-wrapped or soldered 
IC circuitry. 

VAK-8 Protyping Board $39.00 



POWER SUPPLIES 

ALL POWER SUPPLIES are totally enclosed with grounded enclosures for safety, AC power cord, and carry a full 2-year warranty. 
FULL SYSTEM POWER SUPPLY 
This power supply will handle a microcomputer and up to 65K of our KIM-1 * Custom P.S. provides 5 VDC @ 1 .2 Amps 

VAK-4 RAM. ADDITIONAL FEATURES ARE: Over voltage Protection on 5 and +12 VDC @ .1 Amps 

volts, fused, AC on/off switch. Equivalent to units selling for $225.00 or KCP-1 Power Supply $39.00 

more. 

Provides +5 VDC @ 10 Amps & ±12 VDC i 
VAK-EPS Power Supply 




1 Amp SYM-1 Custom P.S. provides 5 VDC @ 1.4 Amps 

$119.00 VCP-1 Power Supply 

"KIM is a product of MOS Technology 



$39.00 



ENTERPRISES 

INCORPORATED 



2967 W Fairmount Avenue 
Phoenix AZ 85017 
(602)265-7564 






SYMple BASIC Data Files 



The SYM-1 has a Microsoft BASIC available in ROM. Data 
Save and Data Load via the cassette are NOT supported 
by this version. The routines required to implement these 
two important functions are presented here. 



John M. Bialock 

3054 West Evans Drive 

Phoenix, AZ 85023 



II you've read "A SYMple Memory Ex- 
pansion" in the August 1979 issue of 
MICRO and '"Another KIM Expansion" in 
the September 1979 issue of Kilobaud 
Microcomputing, then you know that I 
like Micro-Z's BASIC for the KIM. You will 
also know that I have the Synertek BAS-1 
BASIC for the SYM. Both versions were 
written by Microsoft, have9-digit decimal 
accuracy, etc. but differ in some of their 
functions. 

Comparing the Micro-Z 
Synertek BASICS 

Synertek BASIC has a more convenient 
USR function and a <£"hex" function that 
are definite improvements over the 
original BASIC. Their ROM version has no 
GET function like Micro-Z's. Another dif- 
ference is that a response of a carriage 
return only to an INPUT statement will 
cause a break in program execution with 
Synertek's BASIC. Micro-Z has supplied a 
patch to defeat this break. The Synertek 
ROM does not include any trig functions, 
but they have recently released Technical 
Note #53-SSC that gives you full trig 
capability using only 313 bytes of RAM. 



The main difference between the two 
BASICS, then, is the data save/data load 
feature added to his version by Bob Kurtz 
of Micro-Z. This is a very valuable feature 
that Microsoft left out. BASIC can not be 
used to maintain any types of files such 
as mailing lists, inventory records, or 
financial records without this feature. 
Perhpaps you could enter the data via 
DATA statements, but that would be a 
very trying task indeed! This feature is 
the major reason that I have preferred 
Micro-Z's BASIC over Synertek's. 



Data Save/Data Load for 
Synertek BASIC 

Listings 1, 2, and 3 are my first at- 
tempts to provide the same data 
save/data load functionality for the SYM 
with BAS-1. Listing 1 is just BASIC in- 
itialization, program loading, and a LIST 
of the program. All terminal input has 
been underlined for clarity. The little 
crooked arrows represent a carriage 
return typed in. 

Listing 2 is a RUN of the program 
showing the means used to save the 
data. Three separate records are saved; 
the page zero pointers, the numeric data 
and string pointers, and the string data 
itself. To reload this data, BASIC must be 
initialized with the same memory size and 
the program can not have been modified. 

Listing 3 is another RUN of the pro- 
gram after memory was cleared and the 
program reloaded. The data saved in 
listing 2 was restored, as can be seen. 
No, it is not as convenient as Bob Kurtz's 
method, but it works! Bob packs all the 
data together with a machine language 
subroutine and save it as one record. 
Another subroutine loads the combined 
record and then unpacks it, moving the 
data back to its original locations. 

Machine Language Version of 
Data Save/Data Load 

Listing 4 is a machine language 
subroutine that will save and load BASIC 
data files without having to turn control 
over to the SYM monitor. The data is still 
saved in three separate records, but they 
are recorded/loaded one right after 
another by the routine. An extra few 
seconds for each save or load (for sync, 
etc.) shouldn't hurt anyone, should it? 



Listing 5 is a VERIFY dump of the 
subroutine. Load it in, VERIFY between 
the same addresses, and if you check 
sums match mine then you keyed it in 
correctly. Now we know why Synertek put 
those check sums on the VERIFY dumps! 
The rest of listing 5 shows BASIC in- 
itialization and the loading of the revised 
BASIC program. 

Listing 6 is just a LIST of the revised 
program. Note the memory size was 
specified to allow room for the machine 
language subroutine which is called by 
statements 100 and 400. With either of 
the two methods, put the call to the load 
routine after any DIM statements and 
before the main program body. The call to 
the save routine should be at the very end 
of the program, as shown. Any changes 
to the program that increases the 
memory size needed for it will prevent 
data saved by a prior version from being 
loaded correctly. 

Listing 7 is a RUN of the revised pro- 
gram wherein the data that is entered is 
saved at the end of the RUN. Listing 8 
shows memory being cleared, BASIC ini- 
tialization identical to that used in listing 
7, and then the BASIC program being 
reloaded. The RUN of the program loads 
the data saved in listing 7. 

If you plan on saving and loading data 
files very often, dedicating 148 bytes of 
memory to this subroutine should pay for 
itself in convenience over the method 
given earlier. 

SYMple Memory Expansion Update 

Regular readers of MICRO will 
recognize from the listings that my SYM- 
ple memory expansion board is still work- 



April, 1980 



MICRO — The 6502 Journal 



23:21 



Oj Qj C fij V 



-h *j ro o "c? 



(0 in t- 

3 <D 3 

C 3 +> 

ai *> -h ai 

c re +j *> r- 



Bl C C -t-> *C i- * 



rj V 



j: m c a ot 



n , 



H 8*J d. 



_ 81 
3 t 



«- 


o *> 


oi a 








> 


W 


> 


•*> 


c 


J= 


m 


01 


re 1- 


3 




** 


IN 


fc 


01 *-* 


a. 





m nin 8 o en o 
3 «- *j x t- C X a r- 

— .** ui -> re - ^ 8 8 U 6 1 

4* - 4. (B II "O -rt II -rt «- *» M O i- 

IB -h C ■** T> O C CR c- O 

£ 3 "U "C? 01 Of C & u *£• *•■"<« ft- *' 

•• (DCTJura-'o-raiiiOffi in 

08080I-0I08I; fll 



i-zint 

05 »- — 1 -s 



CL .-..-.»- I- I- w — _I 

LJ -*--t-OOCOC -*- -*- *X 

:> _• 0. _j cl <r i- co <x »- co «ij 1 o. _j en 

t',HZ!-ZI-J^#-J--i-jK2l-2Ct 



ii<i<ic«fliii>-U'tii>-uu:<r<i':cii. 
to >- o t- a i- en 0] c z in m c 2 in A i- a h e 
— , t r !_jCn_joi~ , i~i_i«-* - i~;_i'-' - )-Jcn_Jin~i 



- £ 


re +> 


*> 


*j a- 


c 




O t- 


m -o 





u c -c 




in 5 c 


Ul * 


<t m re 


i- V 




t- ft- 




0) 




in ai 




ID N 


K 





1 


u V 


<r u 


re 


C-J *- 




* => 


v «• 


* 






li1uTLJNUCO'-irJ f ><:NCi<HJOll< 

Oi!~-OODIiTOIiTi-IIINCiTLG>Oli1<: 
O-C-SC0tD<ir'<ITC0CCC0CJ«-<G!<E<I"i 

<r<z«r<r fv --<r<icoco<Ec-ico<tLi.r s >*ri-i<i 

■C'GwLIJ - )«UOfl--C 



) LU © © UI in *-! 

) uj ci in uj cc co 



■D 









*J u 




D 


<r gc ui 


0j *■ 


in »- 


c re 


_i -i ct 


•m t 




-*■ ai 




t a. 













ja ai 




:■ r 




en +» 


h- 




O 



n n Tin ^ n cd o- c- - H t^ t ^ ■« Mi: f> c r- r. 1 n «r in < r* co o*- c — ci r> <tdi 
rvr-.r-.r- rvrvNhrorotocDCDCcicoGDaitco-i>o-i>i>r>. ©• o- o- o- c © o o © o 



ujQ<E<E<;ouJUin<iuj©ifiu-ooui*rin 
<r*rtiiu.<EC0UJ-H<r«T«TOiC0C0*ixLLiucci 

OOi>OU'H<l<I>0OuJHMCCUIOl)"ilJO 
CDCO<IC-JTCO^U.<CCDlllCOi-if N .«T«I<I*r'>0 

rtOOliiGliTCQOUN'CTinCljJli.U'J'X 
Li_ C0<;«ICOCO<E , Tr*J^*C0^CJ<EC*iLLJ-^C0CjC0 

i2cocicjiNCi-oQLiiouTi34CJ s oii-o<i:coifir s . 

'-tCOT*fC0N<ICOCOCO<E'r*T<IUJCOL_rvCO'T 

-c c-; co co cj «i ■<)■ co co co <r co co <r co <e cj r-j uj ri 
u B 

-UTUCCJCUTUIUTU'tU^U'nJffl 

yj N N C0COO>O-'^!<CC&iI l CJCJddLLJLJU-Li_U 

^U_L_li_U,ll.L.U-U.lJ-lJ-U-U-ll.Li-U-li-li-U.li.*r 



u u. n LT 

aauu 

L. U- U. U. 



rociii:ori<r-or>tji 

L.U.L.L.U.li.L.U-li.1 



I-WNC-UIlhMITiN 
tlilUJlUUlUiLJU-li-U-li 
.U-li.li-U-li.U.L.L.U.U. 



I 

3 



E V 



*» ►-. • 

-. • (fi «i 
C 31 c 

o — >- o 

t -a- 

fn re - BQtp 

C OJ TJ ft x re 

re ■ ■ c c D ui o 

,— - -- Q re f- X 9 

;- «r 01 <r r- a «h 

D CD u CO •" Ql 

VMhM C 31 "O £ <- 
>n>83>!* , 8 
rt< «i* Kit o £ 

o ■" u o > *- o 

c: to o cd it -pc 
^•i_^ 'eaioof- 

!l (C H Cl C £ C O 

w ai m » <*- 

ui c re .-> --1 t? 
N 11 re 11 f- oi — • a 81 

H, TT £ 3 ti C 

(O C 8 C O •> *•£ 

> t ■ i_ m re re 

>- G !£•* U£ 

u: 4; t— ,c -tJitccj 
O-p a. ♦» a •*• T! ■-« 

C fi JD *rt -C 3 0* Oi 



UJ 3 



a 



C t ffl N t 4 8 
• 01 



8 :acH^ sv 
r c fi c ■- to - « 

♦* M rl « t. a 5 

3 3 IT Z> C tb 

O *» O 'rt 

o 

M 01 1ft -- 

to"c p Di inn o ui 
<xrt-tu>ureouai 

01 o -» m o -h i- «- 

m .*j 0. -ri -rt "o 

n re <n re cm fa 

.* *» v re ■-' £ a 

^- in £ re *■ —• x< ct 

m x" *-* "O re in on 

■M & T ? '- - - 



•- r- 31 



re a 

^ ^ 3 »■ * T 

re -« ^ r- £ c 

u re <e re t- re 



ai 



0| '/! c- 

U Ift •« 

"c a +* re 

■c - C *" 

re t? Hi re 

m re - 



cu d •« 
c *j -J 

■H 8 3 



♦"♦J in 3 

d 3 a; *- a. 

C > 8-P 

t- 1. IB -J 3 

ui u> o 



in 



ft-Core>ret-mi-» 
reo-«ft"oreoaioira 



•rt Bl T? 

♦> C f- -^ 

t.HDBireni*sQj3» in •« 

(1 "3 L' C "P C L« C t 8 1 ■- bi e 

-J C 0) -H -i- r( m ft ft 01 01 t 

iflpt-CVCVril-iEnifiit-Qi 
CDCC c-^*"t-0*> 

0j tt) 0) - h ♦> ft *> 

c.0. 0. mc mr ;; eeee mr 
rara»i»C8C8 8>>y8> 
4) 4> ** xj ojx< oj cvoioii/i *- yi 



(j^iij r*-coco<rr> 

*r«T*r concout 

<:c <crvtrcocDc«iijcocococDCc 



393NNNNN N33 3 

cacftftftftftftccc 
QiOio,eiQ.' tLSioiOiOJCUci] 



I- t- ill _! x 

-_ — .. — — .- q. a uj -x o 

QO-cCitnoiJiitouii- 

C«CC00QXI30CliJ3 

^mujHauiiiLizi-ojLOCEO' 



1 e 

3 

I fj < 



fc. t 



IP 

1- O ■ A' 

"CJ *J O O -h 0i 

(- C O 6 <■ 4 *" 

O -< *> Q> tn re V 



Up-tfltuujQtreuo -.-Pi-'in 

01 — \fl ro n v © ft 3 +> f in 

*urei- n "o u> t. <- i-i re 11 ft oi 

rrjf-CO -■ X 3t- 

V|lfl.ltnllHQ-l>*>Oi70 f 

v> o; nj'-'Cre >C"0+ > X" 

© *o a tH « ft fi re reoioQire 

cd m m o Ui 3 m in fi *ft 



£ 01 w 
v cl c 
otn re -h 
ex -^ t. 



G QJ C li t- 

o > h-c» *> o 

Oi re c- a Ql V 

in m ft £ w 



•oLi -*•-»■ m <c c o ++ + + "-9: t i i 

L_:> OCJft-OOUJ&X*-CCSC-tr.Cii=*CiCll=i Shtowfliogtoofi) 
*>(X"*wiaJ»ir-*uciC*aic^pio:ujuJiuijJ'- , Ci»=*»inoitnwu:^i 



™ S * S i- £ a ^ O I- 01U1 C. r ■ fn.ftU«uSua 



o i toj tn in . 



; a <l u ititi- ^ ii <i «t t >i I 
iul-CK SKOH XCItOuidl-CiV-Cif-CJ 

u cn J u; J 0) J w i- i iJ J tfij inj en j 



" ^ M «^ „ _ _, _ _, .- «j f.j ci c-i n r-j r-j ri f-J f 1 r* m ro n to r; r*^ n n m m t t f •» v v *r t t t in iit in in in in in ut ui ui sj 



,ro«riiT-or".coo'0 — 
« l C!'O*'OVD , 0■o^■ i>- 






Q f> 1=1 Ci 
CO <t CD CD 


On 


c, 

CO <I 


Q 
CO 


UI 
n N « 1 


0D 




03 


in 

4 


Ct LI '■=• 
CO <C CO 


u 


oociiicmauiMiii 

CI TJ « « CD <Z 03 <E CD 1 


U 


U. IM V 

-0 N IN 


r- <i u L- -• 
r-^ r-. r> rs co 

U-U-U.li.li. 


«r rv <z u ui -« ro 
m (E CD CO CO c 
U. L. U. U. U. U. U. 


-O CO 

0- 1> 

li. U. 


ill C 
O ft- 
U. Ll 


c 


ro-co-ixii_i©c<imf'".<i 
•1 <i<i « c a Cd a a a 
L.U.U.U.L.L1.11.U.U.11. 



23:24 



MICRO — The 6502 Journal 



April, 1980 



CD 






a. 

ui 

H- 
Z 
111 

z 
u 

I 



cn 

UI 

>> 

e- 
<r 

t- 
<n 
Ci 

CO a 

w ce 

i o 

l- u 

UI 

UJ uC 

« 2 
en o 

o cc 
i- ui 

5 ° 

<r u 

3 ui 

3 

O K 

> cc <r 

-. « *- 
o |- * « 



-> 
en 



en 



x 
<r 

ll- 
co 

□ 

a. 











h- 












C0 












>- 












cn 












*: 












UI 












i- 












tc 












UJ 












2 






ro 






>- 






«r 




Ui 


in 






o 




UI 






u. 


to 




CC 


CO 




u. 






u. 


IS 




u. 


e~ 






0- 






UI 




cn 


i-i 




U. 1 


N 




UJ 


w 




1 o 


M 




H- 


• H- 




o o 


cn 




>- 


■rf X 




O CM 






05 


3 CD 






> 


0- 




HI 


a 


o c o 


lE 


X 


o 


cj ce 


H Lu 


o c 


o o 


H 


M 


M >- 


a a 


■"■1 


X 


i-: 


in 


to -a. 


<E I 2 


U. u. J 


~i UI 


w 


rv 


<r o 


*: o o i: ~ 




- X 


3 




ixi cj 


OJ JOit 



o 






z 






UI 






o 






§ ffl 






□ UI 






_l >- 






* 2 






*i 






<r _ 






H- P, 






<r Ui 

a 2 






<r 






cn 






a: 






o 


• 




M 


i£ 




ce 


u 




lL 






Ui 


>- 




CL 


« 




o 


_l 




H- 


u. 




cn 






UI 


2 




at 


o 




o 


a: 




i— 


Ul 






a 


* 


i- 


C£ 


a 


2 


□ 


LU 


« 


u 


i— < 


3 


Lfl 


<r 




ct 


o 


3 




_l 


G 


1- 




>- 


CL 


<i 




<: 


h- 


o 


K 


* -X 


o 


cn 


* Q 



a 










2 










Ui 




















« O 










z t- 










x 










o a: 










CJ Ui 










m 






** 




« x 






<r 










y- 




>- z 






<L Z 




05 






a ex 




>- 






x cn cn a k 




Ci <L 






CD H Ui Z 2 w 




U) 0- 






2 M 2 X O X 




H 






i-i rococo 




<I <I 






3 CO -5 ~1 


o 


uC 






C Ui cn 2 


2 


<x - cn 






_l 2: 2 Ul >- Ui Ui 




a. x <z 






JCIZitt J 


0" 


Ui H- 






O 2 o <c <r <E _l 


<r 


I0H« 






u. -i "J x -5 <r 


(- 


X i-< 








4 


•- cn i 






Ui 


o 


Ui -' 






x 




x 2 






w 


CO 


<! X CC 








w 


Z O Ul 






CO 


X 


~~! 05 






z 


t- 


i=i - X 






H ii; 




z ns 




X 


« Ui 


Ul 


<r «r z 


a 


|— 


h- a 


z> 


M 


2 


H-t 


2 £ lil -0 N V 


« 


n: oi ui 


O 


•n 


ODTblOTV 


CO 


Ul t4 O 


Et| 


■f> 


uzntB«» 




05 % w 






ri M T T f 


o 


x t- 


co 


z 


3>-npin** 


1— 


3 •»• <I 


Ul 


Ul 


□ <E 




2 LU CD 


5: 


J 


2 u- 


i— 


_! Ui 


<r 


_] 




2 


>ClZ 


~5 


<L 


Ul 


« 


<C X 


». 


•. 


_■ 


3 


ii. <r <e 


* 


«r 


pq 




X 


<r 


•r 


<n 


3' 


LC Ul l£ 


■3- 


=r 


- i- 


o 


Ui Ul 


■r 


* 


»-» 


>- 


H- iC H- 


>T 


» 


1 Ui 




Z O Z 

Ul U. U! 


fr- 


0" 


i • rt n io "r in 


o 



cn 

z 

Ui 

i: 

<c 

0£ 

CD 

o 

LL. 



o 



2 
Ul 



CD — 

2 5 
a. cd 



i- # 
z c; 
n «■ 
a: • 

QL 

.. J.. 
>- « 

2 K 
m <I 

Q_ 

r-4 |— Ui 

z =• 

h- M C 

XlitO 

Ui LL. 



CO 

c 



Ui 

R 



_l i: 

x CJ 

Ui o 

1> _ ! 

5 * 

" « 

- 2 

<r x 

a o 

x 



Ui Ui 

DC lK 

© o 

rt CM 



O O w 

OiUl LL. 

C ~ Ui 

I— LJ Ul' 

<r o 

O rt O H 

_l cn 
(I II n. ui 

ui a 
2 M •? 

- Ct CO h- 

o o 

o u. <r h- 
•rt — i- z 

w .» <i <r 

# <-> C- 3 

a w ■ _ 

^ w c 5 

—. •* ro >- 

O l£ -' 

O X (S o 

dl-l-h 
2 2 Xi 

X M W LL 

HiLLtZ 

o o o o 

to -^ in -o 



z 
a: 



u 

OS 

>- 



o 

CJ 



H- >- 

2 * 



LL Ui 



r- ■« 

X lL 

Ui LLi 

2 CO 



2 
C ui 



Z 

z 



a d 
z 



>- 

0. 



CO 



LL. Z 

O H 

© Z Lt 



© Ul 

04 X 

<I 

O 2 



o 

- u 

>• Ui 

■ a. 



-- I- 

•rt CO 

V I- 

C3 Z 

>^ h-l 

-# LLL 

K LL. 

U. ♦• 



LL LE 
M LL. 



O O 

CO cv 



«r <i 

03 H 



H z 
i-i <r 

K " Lt 

XrtU 

Ul A 

zir 

•* CD -) 

O LL. 2 

© — 
©•■•>- 

rt ^ <E 

O i-i "" 

i- -^ Lt 

•tf- Ui 

IrtEI- 

X Z 

!i CJ Ui 



X. -• 

CO !-! 



o ii: 

- LlI 
•• OS 

in x 

T 3 
M 2 
04 



Ui <r 

_i CD 
LL. Ui 
X 2 
<C 

X <L 
Ul 

£K 
l£ LlI 
O I- 
U. Z 



u. 

CO 



© 2 UJ 
© _l 

i-i ■- 2 Q 
l-f Ui <E 
O v X K 

(-*•!-- 

rT- L— 

^ ► o iz 



u- 

C3 LL 



O CC Lt 

U. LL. LL. 



Z l-i V Lt 

>_■ a. 

M « •-• — 

= r-i H-i 
L_ L_ L_H J- -^ 

2 2 2 3 <E H 

1-1 HI 1-1 l£ LL. X 

ti: ce ce: o 2 u. ui 

iLll£lLl"H2 



I- 

a 

CD 

Z 

3 • 
CD UJ 

_i s: 
_i « 

D 2 
U. 

Ul 

X 
H 

co 

2 

i—: ll 

<E Ui 

I- Oi 

Z X 

CD 3 

CJ Z 

3 >- 
CD <L 

2 LL 

Ul 

_! 2 

£li 

<I O 

I- I- 

U! i-i 
X * 
h- II 



i-i I- I- s-i i- !- 
2 2 Z I- Z 

M hhllmxh 

ic a. o ct ui a. 

Z LL. LL U. LL Z LL 



04 



CO 



: : : 


QC 


& 




CJ 


z 


z 




Ui 


<E 


CD 




u^ 


\ 


X 


CD 




<r 


o 


a. 


cc 


& li- 


Ui 


CD 


es LL 


h- 


O 


«k ■ 


2 


lK 


■ I— 


Ul 


Ci. 


z 




• 


0- i-i 


z 


h- 


<r ce 


Ll: 


Z 


1- LL. 


X 


1-4 


<z .. 


— 


QC 


Ci 1- 




u. 


2 


>. 


** 


CO M 


Q 


I— 


1-1 LLC 


£C 


Z 


X D. 


c 


— 


1- 


CJ 


if 


2 


Ul 


u. 


Ui Lu 


a: 


*» 


_> X 




■ 


<L 1- 


z 


• 



M CI 
Q- Ui 



CD * 



Cl i- 

* u. 

I- Ui 



I- t- 

2 LL 

1-1 <L 

Lt h- 

a. cn 



2 3 

1-1 LL. 

LLC 2 

i Q_ l-l 



CO 



ro <i 

» Ci 

<f i- 

© 2 

CO M 
-w CC 

LL' LL 
CO •• 

3 H- 

z 
II 1-1 

lK 

O LL 



©©©©©©©©©©©©©©©©O 00000000 
O ^i PI © " 01 N T UD <! IN CO 0- © iH 04 f0 T LO -0 IV CO 0- O i-l 
h h ri M Oi CM M CM 01 CM N N M ro N W W W W M 10 M M «■ «f g 









2 
















Ui 
















2 












o 




Ui 












X 




+« 












Ul 




<c o 












a 




s: h- 

X 












Cl 




O LL" 












<L 


O 


CJ Ui 












a 


z 


CO 








*» 




_] 




« X 








<C 




s 


p- 










H- 




LU 


« 


>- 2 








<r z 




Z> 


1- 


a 








Ci CD 




« 


« 


>- 








X CO CO 




CO 


fi 


Ci <L 
Ul LL. 








CD HUi2 
Z Hi Z X 




« 


Q 


H 








hi X CD O 




1- 


Ui 


•c <r 








3 CO ~! -! 




<I 


Z> 


cc 








O U! 


N. 


Q 


<r 

CO 


<C - CO 
LL X <L 
Ul 1- 

C0 H! — . 








_l X 2 Ui >- 
_i <t X 2 lL 
O 2 CD <: <E 
U. — ~ X 


Ol 




c 


X i-i 










c 




HI 


■• cn i 








Ui 


*f 




l£ 


Ul -^ 








X 


« 




Cl. 


X 2 








r" 


-J 




UJ 


€ X Ll 

z o ui 

1 Hi 








z 






O 


Ci » X 






z 


Hi |V 






H 


z in 3 






c 


<r ui 






to 


<r <■ 2 


2 


CO 


CO 


H 05 






Ui 


M 


1- 


Ui 


2 


Z X 10 -0 FN 






CL 


LLC Oi UJ 


M 


2 


"T 


o 3 <r in -o 








Ui i-i D> 


X 


c 


CD 


o z ro <r m 






O 


05 - Hi 


CO 


-> 


-) 


CM Kl <r 






1- 


Z H- 








3 >- i-i oi ro 








3 <- « 


z 


Ul 


>- 


cd <n 






1- 


2 Ui CD 


x 


2 


LLC 


2 0- 






2 


_l Ul 


o 


<I 


<i 








<I 


>-llZ 




-) 


X 


Ul 






3 


<C X 


I 


■» 


•. 


_! 








LL. <r <L 


in 


•o 


N 


05 






3 


X 


•* 


in 


i0 


<E 






C 


Ii LU iC 


M 


<r 


in 


■ 1- 






> 


Ui Ul 


CM 


ro 


<r 


— 




2 




HllH 


T^ 


CM 


M 


1 Ul 




3 


O 


z o z 








x * i-i oi ro 




Cd 


L-l 


Ui U. U! 


P" 


t- 


&•• 


[-• H- 



April, 1980 



MICRO — The 6502 Journal 



23:25 



16K MEMORY 




K-1016 

ADDRESSED AS CONTIGUOUS 16K 
STARTING AT ANY 8K BOUNDARY 
LOW POWER — 1.6 WATTS TOTAL 
K-1016A — $340 6 MONTH 
WARRANTY 



SYSTEM EXPANSION 




K-1012 

12 PROM SOCKETS — 2708/TMS 2716, 
USES THE POWER OF ONLY 1 PROM. 
32 BIDIRECTIONAL I/O LINES 
FULL RS-232 ASYNC SERIAL 
COMMUNICATIONS, 75-4800 BAUD 
PROM PROGRAMMER 
K-1012A — $295 



IMSIOIM 

FOR YOUR 6502 COMPUTER 




HIGH RESOLUTION 
GRAPHICS 




320 x 200 BIT MAPPED GRAPHICS 

8K RAM AVAILABLE FOR USE 

EACH POINT INDIVIDUALLY 

ADDRESSABLE 

K-1008A — $240, PET — $243 

(PLUS PET INTERFACE) 



MULTI-HARMONIC 
4 VOICE MUSIC 





K-1002-2 K-1002 

MODEL FOR ALL PETS MODEL FOR KIM, AIM, SYM 

• FORIER SYNTHESIZED WAVEFORMS 
— UP TO 16 HARMONICS 

• 4 VOICES PLAY SIMULTANEOUSLY 

• QUALITY D/A CONVERTER, 6 POLE 
FILTER AND AMPLIFIER 

• HARDWARE — $40-50, 
SOFTWARE — $20 




ALL MTU PRODUCTS ARE SUPPLIED WITH FULL DOCUMENTA- 
TION CLASSED AS "BEST IN THE INDUSTRY". MANUALS MAY 
BE PURCHASED SEPARATELY. 



Micro Technology Unlimited 

P.O. Box 4596, 841 Galaxy Way 
Manchester, N.H. 03108 
603-627-1464 

Call Or Write For Our Full Line Catalog 



A Perpetual Calendar Printer for the AIM 



If you know the proper tricks, a Perpetual Calander is 
quite easy to program. Here it is presented for the AIM 65. 
In addition to being an interesting demonstration, it 
points out a few programming tricks required when using 
integer numbers in BASIC. 



Mel Evans 
1027 Redeemer 

Ann Arbor, Ml 48103 



Another calendar printer? Yes, but with 
a couple of new twists. First, it puts out to 
the AIM printer. So the next time so- 
meone asks, "Okay, but what can it ac- 
tually do?," you can give him an answer 
he can put in his pocket and take home 
with him. 

Second, it has a built-in perpetual- 
calander algorithm that finds the starting 
day-of-the-week for any month of any year 
from 1583 AD (the start of the Gregorian 
calendar) to 999999999 AD (or until we 
change the calendar, or until the world 
ends, whichever comes first.) The 
algorithm is fairly simple, but the results 
can be impressive. For example: 

RUN 

HOW MflNV MONTHS? 1 



Pi IN 



Mfifj" 



* 



#**:+:* JULY 

S M T W 



.-• ~j A A .-j '"i 



2S 29 38 31 

"So, Independence Day happened on a 
Thursday." 

"You mean it figured out all those leap 
years clear back to 1776?" 

"Well, the equivalent of that, yes." 

"How do I know it's right?" 

"You don't." 

"Okay, print me December, 1941. I 
know what day Pearl Harbor happened 
on." 



HOli MflNV MONTHS? 1 
MONTH #? 12 
YEAR? 1341 



** DECEMBER 


±$4± *** 


S M T U 


T F S 


12? 


4 5 6 


7 S 9 18 


11 12 13 


,t .t a c; .If A •? 


18 13 28 


21 22 23 24 


25 26 27 



28 29 3@ 31 

"So December 7th was a Sunday." 
"Hey, that's right! Okay, print me the 
start of year 2000." 

Run 

HOW MflNV MONTHS" 2 
FIRST MONTH #? 1 
VEftR? 2888 

:f*:v JANUARY 2888 #** 
S M T 1*1 T F S 



3 18 11 12 13 14 15 
± f. -• y -i ft -i ^ 28 21 22 

23 24 25 2b 27 28 29 

38 21 

** FEBRUARY 2868 ♦** 



S 7 8 9 18 11 12 
IT 14 15 16 17 18 19 

r>7 -'!-! '"'9 



"How about that! It got February right. 
Century years aren't normally leap years, 
but every fourth century is, and there it 
is." 

"Right. Want a calendar of this month, 
and may;be the rest of the year?" 

"Sure, but make it through next 
February. Why do all calendars end at 
December?" 

"I don't know, but this one won't." 
RUN 

HOW MANY MONTHS? 5 
FIRST MONTH #? 18 
YEAR? 19/9 

*** OCTOBER 1979 *** 
S M T W T F S 



7 8 9 18 11 12 13 
14 15 16 17 18 19 28 



£0 



29 38 31 



*■# NOVEMBER 1979 ### 
5 M T to T F S 



4 5 6 7 8 3 18 

11 12 13 14 15 16 17 

18 19 28 21 22 23 24 

25 26 27 28 29 38 

** DECEMBER 1979 *** 

■~ M T i.l T P •-, 



9 18 11 12 13 14 15 
16 17 18 19 28 21 22 
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**+ JhNUhRV 1988 *#*, 

5 M T W T F S 

12 2 4 5 

6 7 8 9 19 11 12 

A — .4 ^ .4 w .4 £ .4 "y .4 O -i Q 



S M T U T F S 



.4 j^ .4 .4 .4 •- .4 — .' .4 .4 — .4 - 

•*_- • s .» *a 2R 21 22 2"'' 
24 25 25 27 28 29 



The day-of-the-week algorithm ap- 
peared in BYTE (Day of Week and Elaps- 
ed Time Programs," W. B. Agocs, BYTE, 
September, 1979, p. 126.)- I read it, 
thought "That's neat," and forgot it. Then 
a calendar printing program for Teletype 
came out in Kilobaud ("Calendar Pro- 
gram," Steve Tabler, Kilobaud Microcom- 
puting, October 1979, p. 102.). Can the 
AIM do that on its printer? Sure it can! 
Can I build in that day-of-week algorithm 
so that it doesn't need starting instruc- 
tions? Sure I can! The resulting AIM 
BASIC program is listed in Figure 1. 

The starting day-of-week algorithm is 
in lines 85 through 150. It uses "Zeller's 
congruence," as explained in Agoc's arti- 
cle. Zeller first does some juggling of 
month and year numbers before getting 
down to the main computation of the day- 
of-week (variable DW in line 150). 

The algorithm packs more power than I 
needed here; it works for any year, month, 
and day-of-month (day-of-month is 
variable DM in line 130). Since I only need- 
ed the beginning day-of-week of each 
month to be printed, I set DM = 1 in line 
129. To restore the algorithm to its full 
power, just delete that one statement, 
and use DM as an input. 

AIM BASIC (like most BASICS) does not 
allow much format flexibility in printing 
numbers, so to squeeze those date-lines 
onto the 20-column printer, a string 
variable, L$, is used to build each line 
before printing. L$ is first nulled (e.g., line 
290), and is then built up, character by 
character, as in line 350: 

L$=L$ + CHR$(48 + D2) 

This statement adds D2, the second 
(units) digit of a two-digit date number, to 
line L$. As shown in Appendix E of the 

AIM BASIC manual, CHR$(48) is ASCII 
"0" (zero), and the other digits follow. So, 
if D2 = 5, say, ASCII "5" is added to the 
string. After the last character has been 
added, the line is printed (e.g., line 380). 



If you are fussy about format, the 
above technique gives you total control 
over each column of each line. If numbers 
don't print to suit you; don't print 
numbers, print characters. 

AIM BASIC has one quirk which I 
haven't noticed in others (but if you're 
running a different BASIC, you might like 
to check it out). If X evaluates internally 
as less than an integer, but is sufficiently 
close to that integer, it will print as the in- 
teger, but INT(X) will truncate down to the 
next-lower integer; e.g., if 
X = 4.99999...,you get: 
PRINT X 
5 
PRINT INT (X) 
4 
Don't believe it? Try this: 






56 PRINT »x»-j 
NT 00 = ".; INTOO 
78 END 



RUN 

)<= 5 INTOO= 4 



To prevent this from happening, add a 
dab to X before doing INT(X). How much 
is a dab? Anything less than the smallest 
meaningful increment in X. The first equa- 
tion in line 258, for example, is computing 
the century from the year: 

C = INT(Y/100 + .005) 

If year Y increases by 1, Y/100 in- 
creases by .01, so the added dab is half 
that. This assures that it will work for the 
year 2000, and is small enough so it will 
also work for 1999. 

Another example is on Line 262: 
INT(YC/4 + .1). 

When YC increments by one, YC/4 in- 
creases by .25, and the added dab is less 
than half that. The previous .005 would 
work fine here, too, but .1 costs fewer 
bytes. 

A final note of minor interest. Line 80 
sends two line-feeds to the printer before 
starting the calendar, and line 430 sends 
it five line-feeds, so you can tear off the 
finished calendar without having to pump 
th "LF" key. And PRINT TAB (100) is sure 
neater than a string of five PRINT 
statements, isn't it? 



FIND 



i i -. : 

4 r.Lii 

5 REM PERFETURL- 

CRLENDRR PRINTER 
5 REN 

10 LIN R(12)f J?$C12) 
-<■-; rop t=i TQ 12 : RE 

RD H ; ' I ) : NEXT I 

RD R$<I> : NEX~ I 
48 INPUT "HOW MRNV 

MONTHS O N 
50 IF N=l ! HEN INPU 

T "MONTH i*;M 
50 IF N>1 THEN INPU 

T !l FIRST MONTH #"; M 
70 INPUT "VERROV 
80 PRINT TRB(4S> 
85 REM CONVERT TO 
2ELLER MONTH & yERR 
90 M2=n-2:V2=V 
100 IF M=i THEN MZ= 

■\_l ■ T 7 = v -l 
110 IF M=2 THEN M2= 

A ac r ■ r M 

STRRTING Dfi¥-QF-l4EEfc 

120 CZ=INO.VZ/100-K 
605 ) . YZ=¥2-188*CZ : DM 

j_) -fDM J -VZ 
±4* Dl=Di+INT<VI/4- 
i>+INT<CZ/4+. i)-2*E 

^158 Dw=2i-7*INTOi 
7 + . 9i)+i 
155 REM PRINT HEflDE 

158 PRINT RiOO.; PR 
IN? V; : PRINT"***" 

i~8 PRINT" S M 1 

5" T F : : ' 
175 REM BUILD rIRb T 
DATE-LINE & PRINT 
188 L$="" :D1=DW-. 5 

.4 ,-, .-, r- r. r. t _ .4 t ,- , ~f 

208 DT«I-DH+i 

213 IF KD1 THEN Li 
= i_l + i; " 

228 IP I>D1 THEN L* 
=LJO : "+CHR$<48+DT'3 

228 IF KS. 5 THEN L 
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240 NEXT I 

258 PRINT LI 

255 REM CHECK FOR 
L.&RP-YEftR 

253 C=INT<¥/188+. 68 
5) ■: YC*V-i88*C 

268 H<2)=23 

262 IF VC=4*INT<¥LV 
4+. i) THEN fK2>=2? 

264 IF ViX. 5 THEN fi 
<2)=2S 

278 IF ViX. 5 AND C= 
4*INT<C/4+. 1) THEN fi 
<2)=29 

275 REM BUILD 
REMAINING DATE-LINES 
AND PRINT 

288 EN=8 

2py |_*= i! " 



218 DT=DT-*-l: IF DT>H 
<M'-+. 5 THEN EN = i:QOT 
338 

328 D1=INT<DT/10+. 8 
5> : D2=DT-i8+Di 

338 IF DK. 5 THEN -L 
$=!_$ + " !i 

348 IF Di>. 5 THEN L 
$=L*+CHR£':48-<-Di> 

358 L*=L*+CHR*<48+D 
2) 

368 IF lib. 5 THEN L 
*=!_*+ i; " 

378 NEXT I 

338 PRINT Li 

338 IF ENC 5 THEN 2 
38 

498 PRINT" " 

465 REM DO AGAIN 
^OR NEXT MONTH 



418 M=M+1: IF M>12. 5 

THEN M=i:V=V+i 

^29 N=N-1: IF N>. 5 T 
HEN 38 

433 PRINT TAB 1 ; 188) 

448 END 

459 REM DfiTfl: MONTH 
LENGTHS AND NAMES 

4 by DA i Fi Sx> 2y.' ii.' s 
3, 31, 38; 31.. 31, 38, 31. 
38, 31 

478 DfiTfi *** JANUAR 

V. :»::+: FEBRUARY; **** M 

ARCH 
436 DATA **■** APRIL 
***** MAY , ***** 

JUNE 
436 DA ! A ***** JU^V 
, #*** AUGUST; * SEPT 

568 DATA *** OCTOBE 
R; ** NOVEMBER; ** DEC 

EMBER 



AIM 65 Software 



* DISCOVER 6502 POWER * 



HELP!! 

9 Super utility programs lor all AIM 65 programmes HEX INPUT: Long and 
short versions, used tor entering hex bytes into memory DUMP & HEXOUT: 
Print out your memory in two formats tor easy checking or location ol 
individual bytes FIELD SORT: A tield sorting routine that rinds usage -n 
many tasks including helping you organize your programming RESTORE: 
A program which automatically restores your editor after you vc re-entered it 
improperly This has been a real lime saver lor us ONE STEP: A.owsyouto 
slop thru the disassembly (K listing) one line at a time SYMBOL TABLE: Is 
(or use with the assembler ROM (Mow can you do without one') It prints the 
beginning and ending addresses ol your symbol table along with each label m 
your program and its address, all in a handy lormat RELOCATE: Is a 
powerful program which allows you to move or relocate programs or data in 
memory All who write, adapt or pirate programs or subroutines w»H appreciate 
this it allows you to place them wherever you'd like You can even open up 
spaces right m ihe middle ol a program lor inserting missing new. or 
additional data or instructions A programmers dream 



GAIMS PAK I 

5 Exciting games of skill lor 1 or several players using the 'uii capabilities ol 
the AIM 65 keyboard, display, and printer HANGMAN: A challenging word 
game for 2 players. The AIM does the work and keeps score SCORE 4: A 
Challenging game Ml 3 dimensions The printer shows the positions ol the 2 
players alter each move REACT: Your relieves are tesled in thousandths^ a 
second The display and keyboard are turned into a reaction timer G L - 
LUMS CAVERNS: Places you into the underground kingdom of ihe evil 
Wizard You must move thru secret tunnels and cavern rooms avoiding traps, 
mysterious mist, and the Wizard s spell To capture the Wizard you have only a 
lew poison darts and your Magic computer to warn you when Evil is near 
Bl NH EX: Teaches and tests your ability 10 convert Binary numbers into their 
Hexadecimal equivalents Fun lor budding programmers and nelps you to 
perfect a needed skill lor las! and tfHCJgn] prog 



MATH WHIZ 

6Programsdeaiingwithnumbers&math&ihcAIM6!> ADD & SUBTRACT: 
This powerful utility program turns your AIM 65 into a multiple precision 
calculator TOTAL: Adds up to lour decimal or hexadecimal numbers at a 
lime TEST MEMORY: Lets you really check out your RAM memory 
FIBBONACCI: You learn about these important numbers as your AIM 
generates them in a series DEC TO HEX: A mulh-use program and 
algorithm lor changing decimal numbers into their hex equivalents TIMER: 
Makes your AIM 65 mtoa timer or a 12 or 24 hour clock. d-Splaying or printing 
hours, minutes and seconds A super demo ol the power of the AIM 65 



YOU CAN NOW DEMON- 
STRATE THE POWER OF 
YOUR AIM 65 WITH CYBER- 
DYNE'S DYNAMIC ACTION 
SOFTWARE. ALL OF OUR 
PROGRAMS RUN ON 1K OR 
4K AIMS. ALL SOFTWARE ON 
EZ-LOAD TAPE CASSETTES. 
COMPLETE TEXT, PROGRAM, 
& LOADING INSTRUCTIONS 
ARE INCLUDED. 



"TAKE AIM" MANUAL, VOL I 
by JAMES HOYT CLARK of 
CYBERDYNE'S staff, coming 
soon — watch for it or write for 
info. A guide for all. Master 
AIM 65 hardware & software. 
A lab and learning manual, 
extension, clarification, & index 
to AIM 65 documentation. Over 
30 programs. Explained & fully 
documented (games, math, 
utility, printer, display, & more). 



HOT LINE!! 
(801) 224-2745 



GAIMS PAK II 

6 Value packed games of skill and chance at less than $1 75 each Created for 
maximum enjoyment of the AIM 65 by you and others BRICKS: This 
program is unique because il learns from your mistakes ana successes, while 
you play II actually becomes "smarter ' as you and the computer compete m a 
series of games A real challenge to your skills of logic deduction, and 
memory TIC-TAC-TOE: Need we say more than ihe AIM 65 is a fair and 
impartial scorekeeper CARDS: Gives you practice in when lo hold-em and 
when to fold-em asyour AIM 65 deais5 CARD STUD from an unmarked and 
randomly shuffled deck LOGICAL ORDER: Tests yourskillsasa Masier- 
Mlnd Of reason and logic as you try to deduce a random 4 number sequence in 
the lewesl number of tries STAR WAY 090: Places you al tne controls of a 
crippled spacecraft You must successfully pilot your craft back to the 
mothership lor a soft rendezvous You* supply of fuel is hmiied and must be 
used with care loavoid disaster ESP: Even computers can have ESP (or seem 
to) You mentally pick a number, answer a lew questions (without disclosing 
the number), and your AIM 65 will guess Ihe numoer correctly every lime 



SHOW OFF 

7 Programs (less than $' 50each( which show of I all Ihe features of ihe AIM 65 
SIGNS: lets you print ? sizes o< letters edgewise on the AIM 65 printer & 
make large banners ROTATING BILLBOARD: Shows your messages as 
they rotate along the display PRINTER WAVE: A good demo of uso« 
control ol the AIM 65 printer Starts you inlo graphics printing PAPER 
ADVANCE: Gives you soitwaro control of the printer paper advance See 
those last few lines printed tor a change LINEFEED: Tins timed is hardware 
control of ihe paper advance CURSOR DEMO: You can light an 16 
segments ol me displays or type m different display patterns KEYBOARD 
INTERRUPT: Gives you hardware control of the keyboard Scans the 
keyboard 'or key closures witnout interrupting program execution ALL 
PROGRAMS in this section may be used in your own programs as subroutines 
Or run on their own as demos Fu instructions included 



AIM 65 & 6502 RELATED PRODUCTS 

l/0-TTYCASS6TTEconnectoib08'dlOrtheAIM65 Plugs directly to AIM 65 
app connector (J 1> Includes AIM conneclor TTY and recorder lacks cable 
set tor 1 recorder. PC board with (races 4 holes for LEO indicators, switch 
input sensors optoisolators, drivers, relays, audo amp & AIM 65 I/O training 
course with soltware AIM I/O BOARD-Kit S19.75 Assembled $22 75 



CYBERDYNES 1980 CATALOG, hardware SOFTWARE BOOKS 
TRAINING ITEMS. GOODIES & R&D Services (FULL DESCRIPTIONS! 
Si 00 (REFUNDABLE ON FIRST OnOEFt)-FREE WITH ORDER. 



ORDER 
NOW! 



ORDER BY ITEM NAME AND PRICE. SOFTWARE CASSETTES$9.75 EACH. POSTAGE IN U.S.A. & CANADA 
25C PER ITEM. OUTSIDE U.S. ADD 10% FOR AIR POSTAGE & HANDLING. FOR RUSH ORDERS PAY BY 
POSTAL MONEY ORDER. 10% DISCOUNT ON ORDERS OF 3 OR MORE ITEMS. 
DEALER INQUIRIES INVITED. CUSTOM INDUSTRIAL MICRO-SYSTEMS OUR SPECIALTY. 



* SATISFACTION GUARANTEED * 



Q> Cyberdyne 



P.O. Box 1285 
^rem^Jtajj^4057 
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Introducing AppleSeed, our 
newest publication to whet 
your Apple* appetite! 

We invite you to subscribe to AppleSeed • the 
magazine that is to the Apple II* what SoftSide is to 
the TRS-80**. It offers the newest in software pro- 
gramming hints and ideas tailored especially for 
your computer. AppleSeed features challenging pro- 
grams for both the do-it-yourselfer and the in- 
dividual interested in pre-packaged programs and 
games . . . your own preview of the best available on 
the market today. A typical slice of AppleSeed con- 
sists of one major (new 16K) commercial level pro- 
gram (completely listed for your keying pleasure), 
accompanied by two or three applications for prac- 
tical use or fun, supplemented by informative ar- 
ticles to polish your Apple*. Get right to the core of 
your Apple* needs and order AppleSeed today! 12 
issues, 1 year, $15.00. AppleSeed is the newest 
member of . . . 



_5oft5i3e: 

PUBLICATIONS 

6 South Street, Milford, NH 03055 
(603) 673-5144 



•A registered trademark ol Apple Computers. "A registered trademark ot Radio Shack and Tandy Corp. 



Bi-Directional Scrolling 



Everyone knows that a teletype only moves the paper in 
one direction ■ up. Likewise, the Apple display only 
scrolls one way • up. Now you can have scrolling in both 
directions - up and down - with these routines- 



Roger Wagner 
SW Data Systems 

P.O. Box 582 
Santee, CA 92071 



By using the machine language 
routines given below, it is possible to 
scroll either text/gr page in either direc- 
tion. 

The up-scroll routine is derived from 
APPLE computer's red Reference Manual 
with the difference being that a zero-page 
location is referred to determine which 
page to scroll. The down scroll routine 
makes similar use of the same zero-page 
byte. 

To use the routine a few entry conditions 
must be met: 



1. Load the binary routine into the 
$300 page of memory starting at $300. 

2. Set pointers 6,7, and 8,9. If you 
want to bring new information 
onto the screen from RAM as 
you scroll 6,7 must point to the 
location in memory where the 
data to be loaded onto the top 
line of the screen will come from 
when you scroll the screen page 
down. Similarly 8,9 point to the 
place in memory to get the data 
for the bottom line when you 
scroll up. 



If you want to use this routine to direct- 
ly view memory, the easiest way to set 
the pointers 6,7 and 8,9 is to set 8 and 9 to 
the address you want to start viewing at. 
Put the low order byte in 8 and the high 
order in 9. (The screen height plus 1.) 
Then set 6,7 to the same value as 8,9 were 
originally, i.e., the low and high byte bring 
the starting address. Last of all, scroll 
back down one line to bring the starting 
address line into position as the first line 
of text visible at the top of the screen. 

If you do not want new data brought 
onto the screen, then 6,7 and 8,9 will have 



10 

29 REM OR SET LOMEH HANUfiLLV BEFORE RUNNING. 

30 CULL -936: INPUT "PAGE 1 OR 2?*,PflGE 

49 PRINT "INPUT AC/DRESS < < 32767) TO START AT " INPUT A 

56 REM TO SCROLL WITHOUT BRINGING IN NEW DATA ENTER 'W FOR ADDRESS. 

66 IF A#6 THEN 188. TEXT : CALL -936: POKE 34.. 1 REM FREEZE ONE BLANK LINE AT TOP OF SCREEN 

78 VTAB 12: PRINT "(SAMPLE PG. 1 SCREEN DATA)" 

80 POKE 6,9: POKE 7,4 POKE 8,0. POKE 9,4. PEP! BRING NEW SCREEN DATA FP0P1 THAT BLANK LINE 

90 GOTO 158 

109 LB=A HOD 256 H6=A/256 

110 POKE 5,PAGE*4 IF PAG£=2 THEN POKE -16299,9 
128 POKE 8, LB POKE 9,H6 

130 FOR 1=1 TO 25. CALL 768: NEXT I 

149 POKE 6, LB. POKE 7,HB 

150 KEY= PEEK (-16384) POKE -16368, 

166 IF KEY=149 THEN CflLL 768: REH RT ARROW KEY TO SCROLL UP 

170 IF KEY=136 THEN CALL 845: PER LFT ARROW KEY TO SCROLL DOWN 

188 IF KEV#136 AND KEYM49 OR AM THEN 190 POKE 6,0: POKE 7,4: POKE 8,8: POKE 9,4: REM RESET 6,7 * 8,9 TO POINT AT B 

LANK LINE 
198 IF KEV#1?7 THEN 289: POKE 5,4 POKE -16399.0 REM T FOP PAGE 1 
200 IF KEVH78 THEN 219 POKE 5,8 POKE -16299.8 REM '2' FOR PAGE 2 
219 IF KEYI216 THEN 159 POKE -16398,0 TEXT : CALL -868: PRINT "BYE. ": END 
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1 +****************♦♦*•**********+♦ 


2* 




* 


3 * ftPPLE SCROLLING ROUTINE 


* 


4 * 




* 


5* 


BY 


* 


6 * ROGER- WflGNEP 


* 


7* 




* 


8 * THIS WILL LET EITHER PAGE 


* 


9 * SCROLL IN EITHER DIRECTION. 


* 


18 + IT IS PI 


?IP1ftRILY DESIGNED 


* 


11 * TO FEED NEW SCREEN DftTfi IN 


* 


12 * FROM ft GIVEN RftNGE Of RAM 


* 


13 * 




* 


i4 *+*+++****+**+*w**-++**++**+**+* 


15 + 






16* 






17* 






18 OBJ 


$309 




19 ORG 


$308 




20 HNOLFT EOiJ 


$20 




21 WNDWDTH ECU 


$21 




22 HNDTOP EQU 


$22 




23 WND8TPI EQU 


$23 




24 CH EQU 


$24 




25 CV EQU 


$25 




26 BftSL EQU 


$28 




2? BflSH EOU 


$29 




28 BRS2L EQU 


$2H 




29 BBS2H EOU 


$2B 




30 PAGE EOU 


$85 




31 + FOR APPLESOFT USE PAGE EOU $1F 


32 * FTFH5E HIST 


HOLD m FOR' PG. i 




33 * $08 FOR Pa 2 




34 SCPNTP EQU 


$06 




35 * $&. $0? = 


LO/HI BYTES 




56 * OF START 


OF LINE JUST BEFORE 




3? * TOP Lire 






38 SCPNBTfl EOU 


$88 




39 * $88,189= 1 


LO/HI BYTES 




40 * OF START OF LINE JUST AFTER 




41 * BOTTOM LINE 




42 * 






43 * 







Change of Address? 

We are still having problems with those 
of you who are moving around. Please 
notify us of any change of address so 
that you will not miss any issues. The 
Post Office does not return the 
undelivered copies, so we lose both the 
postage and the magazines. Send ad- 
dress changes to MICRO, do Carol Stark, 
Box 6502, Chelmsford, MA, 01824. Please 
include your old label or your subscrip- 
tion number. 
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8388 A5 22 

8382 48 

8383 28 9E 83 
8386 PS 28 
8388 85 2A 
838fl H5 29 
830C 85 2B 
838EA4 21 
8318 88 

8311 68 

8312 69 81 

8314 C5 23 
8316 88 90 

0318 48 

0319 20 9E 83 
831C Bl 28 
031E 91 2fl 

8320 88 

8321 18 F9 

8323 38 El 

8325 A8 80 
832? Bl 88 
8329 91 28 
832B C8 
832C C4 21 
832E 90 F? 
83313 18 
0331 A5 86 
0333 65 21 
8335 85 06 

8337 A5 07 
3339 69 80 

8338 85 87 
833D 18 
833E A5 08 
8348 65 21 
0342 85 03 
0344 A5 89 
8346 69 08 
0348 35 89 
834A 4C 9C 03 



834D IS 
834E A5 23 
035O E9 81 
8352 48 
0353 20 9E 03 
0356 «5 28 
835.8 35 2ft 
835A A5 29 
835C 85 28 
035E A4 21 
8360 88 
9361 68 



44 SCROLL LDft 

45 PHfl 

46 JSR 

47 NXTLN LDft 



48 
49 
58 
51 
52 
53 
54 

55 
56 
57 
58 



STfl 
LDft 
STA 
LDY 
DEY 
PLA 
ADC 

CMP 
BCS 
PHA 
JSR 



59 NXTCHR LDA 
68 STfl 

61 DEY 

62 BPL 

63 BRI 

64 LDBTPI LDY 
65LD2 LDfl 
66 STfl 
6? INY 

68 CPY 

69 BCC 
78 CRPCT ELC 



71 
72 
73 

74 
75. 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



LDA 

fee 

STA 

LDft 
FCC 

STA 

CLC 

LDA 
ftDC 
STA 
LDA 
ftDC 
STft 
JHP 



HNDTOP 

VTflBZ 

BftSL 

BAS2L 

BfiSH 

BRS2H 

WNDWDTH 



i$81 

UNDBTR 
LD8TM 

VTflBZ 
(BftSL). Y 
(BAS2L).Y 

NXTCHR 
NaTLN 

#80 

iSCPNBTH),Y 
('BASL).Y 

HNDHDTH 
LD2 

SCRNTP 
WNDWDTH 
SCRNTP 
SCRNTP+1 

m 

SCPNTP+l 

SCPNBTfl 
WNDWDTH 
SCPN6TPI 
SCPNBTH+1 

#00 

SCRNBTH+1 

VTftB 



8362 E9 88 
8364 C5 22 
8366 38 8D 

8368 48 

8369 28 9E 83 
836CB128 
836E 91 2ft 

8378 88 
8371 18 F9 
8373 38 El 
8375 R8 88 
8377 Bl 86 

8379 91 28 
837BC8 
037C C4 21 
837E 90 F7 

8388 38 
8381 R5 86 
9383 E5 21 
8385 85 86 
8387 ft5 87 

8389 E9 80 
0388 85 87 
938D 38 
833E A5 88 
8398 E5 21 
0392 85. 08 
6394 85 09 
8396 E9 80 
0398 85 09 

839fl 68 

039B 00 



039C A5 25 
039E 20 A6 03 
83ftl 65 20 
83A3 85 28 
03ft5 60 



#$01 



87 SCROLL!* SEC 

88 LDfl WND8TM 

89 SBC 
98 PHft 

91 JSR 

92 NXTLH2 LDfl 



93 
94 
95 
96 
9? 
98 



STA 
LDA 
STA 
LDY 
DEY 
PLA 



8ASL 
BPS21 
BflSH 
BAS2H 
WNDWDTH 



99 SBC 

188 CMP 

181 mi 

182 PHfl 

183 JSP 

184 NXTCHR2 LDft 

185 STfl 

106 DEY 

107 BPL 

188 BNI 

189 LDTOP LDY 

110 LT2 LDft 

111 STfl 

112 INY 

113 CPY 

114 BCC: 

115 CRRCT2 SEC 
LDft 



116 
11? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 

it** 

130 
131 * 
132* 

133 VTftB LDfl 

134 VTftBZ JSR 



STft 
LDfl 
SBC 
STft 
SEC 
LDft 
SBC 
STft 
LDft 
SBC 
STfl 

RTS 

BPK 



#$08 

HNDTOP 
LDTOP 

VTftBZ 
(BftSL), V 

(BftS2L)-Y 

NXTCHR2 
NXTLN2 
#$88 

(SCRNTP), Y 
(BftSL). V 

WNDWDTH 
LT2 

SCRNTP 

WNDWDTH 

SCRNTP 

SCPNTP+l 

#88 

SCRNTP*! 

SCPNBTfl 
WNDWDTH 
SCRNBTH 
SCPNBTFt+1 

#80 

SCPNBTH+1 



FCC 

STft 
RTS 



135 
136 
137 

138 * 

139 * 
148 FjftSCALC PHft 



CV 
BfiSCflLC 

WNDLFT 
EflSL 
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93A6 48 

83ft? 4ft 141 

83A8 29 83 142 

83ftft &5 05 143 

03ftC 85 29 144 

83AE 68 145 

83BF 29 13 146 

8381 98 02 14? 

03B3 69 ?F 148 
8385 85 28 

938? OH 150 

8368 8ft 151 

9369 85 28 152 

0366 85 28 153 

8380 68 154 END 
— END ASSEMBLY — 

TOTAL ERRORS 80 



LSR 
AND 

OPA 
STft 
PLft 

AND 
BCC 

me 

149 BSCLC2 STfl 
ASL 
ASL 
ORfl 
STft 
RTS 



#$03 
PAGE 
BASH 

#$18 
6SCLC2 
#$?F 
EflSL 



BftSL 
BR5L 
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to point to a part of memory that contains 
40 blank space characters. One way to do 
this is to freeze on blank line on either 
page 1 or 2, and then set 6, 7 and 8, 9 
must be reset to that value each time the 
scroll is done. This is because normally 
the scroll routine updates 6,7 and 8,9 by 
thee screen width so as to remain syn- 
chronized with the screen display another 
technique is to just clear the top or bot- 



Symbol 

WNOLFT 


Table 

0i323 


WN0K0TH 


9821 


WWOP 


9922 


HHJBTR 


9m 


CH 


&m 


cv 


6025 


BflSL 


9628 


BRS8 


9923 


Bflsa. 


8928 


BRS2H 


9926 


PflGE 


9995 


SCRNTP 


9996 


SCRNBTH 


9998 


SCROLL 


9388 


(KILN 


9396 


NXTCHP 


831C 


LOBTFi 


9325 


LD2 


932? 


CRRCT 


9339 


SCPOLLON 


934D 


NXTLN2 


9356 


rcacHQ 


936C 


ldtop 


9375. 


LT2 


9377 


CSRCT2 


9389 


VTHE: 


939C 


VTRBZ 


939E 


BflSCftLC 


9386 


BSGLC2 


93S5 


END 


9380 



torn line to blanks each time a scroll is 
done. 

3. Location 5 must hold a 4 for 
page 1 scrolling, and an 8 for 
page 2. 

4. That's all. Now when you want 
the screen to scroll just 'CALL 
768' to scroll up, and '845' to 
scroll down. 

Special Notes: 
If you are going to use page 2 of text/gr 
in Integer Basic, be sure to protect the 
variables with a 'LOMEM': 3072. This may 
be done before running the program, or if 
you know how, put as an early line in the 
program. 

+399 38F 

9399- R5 22 48 29 9£ 93 R5 28 
9388- 85 2fl fl5 28 85 28 94 21 
8319- 88 68 69 81 C5 23 89 90 
9318- 48 29 9E 93 81 28 91 28 
8329- 83 19 F9 39 El 89 89 81 
9328- 98 91 28 C8 C4 21 99 F7 
9339- 13 95 96 65 21 85 96 95 
9338- 8? 69 89 85 87 18 85 98 
9349- 65 21 85 98 85 89 69 99 
9348- 85 99 4C 9C 93 38 85 23 
9359- E9 91 48 29 9E 93 85 28 
9358- 85 28 85 29 35 2B 84 21 
9368- 88 68 E9 99 C5 22 39 90 
836.8- 48 28 9E 93 Bl 28 9128 
8378- 33 19 F9 39 El 88 99 61 
9378- 86 91 28 C8 C4 21 98 F? 
9388- 38 85 86 E5 21 35 86 85 
8388- 8? E9 99 85 9? 38 85 98 
9398- E5 21 85 88 R5 89 E9 88 
8398- 85.89 68 88 95 25 29.86 

63H8-J3 65 28 85 23 68 48 4fl 
9383- 29 93J5_95 85 29 6-8 29 
83B8- 18 99 92 69 7F '85 28 98 
83BS- 88 85 28 85 23 69 FF FF 



To use page 2 in Applesoft is more dif- 
ficult, but can be done. First, location 
$3AB in the machine code must be 
changed from $05 to $1F. Also, you must 
POKE 31 with a 4 or 8 as compared to the 
POKE 5 in Interger. 

The real rub is that Applesoft programs 
normally begin in memory at $800 (hex) 
which conflicts with page 2 use. The way 
around this is to do a 'POKE 104, 12: 
POKE 3072, 0' before loading your pro- 
gram. After loading do a 'CALL 54514' (un- 
necessary with DOS 32.). Unless you do a 
'RESET, 'Control-B' other programs. Un- 
fortunately, use of page 2 with the RAM 
version of Applesoft is to my knowledge 
impossible. (Sorry...) 

If you wish to move the scrolling 
routine for some reason, the only 
location-dependent aspects of the code 
are 5 'JSR's and 1 'JMP' within it. Since 
these operations always reference ab- 
solute addresses they will have to be re- 
written. Of course, if you have a relocate 
utility, it is that much easier. 

For further enlightenment, see the 
sample Integer Basic program which 
makes use of the scrolling routine. Have 
Fun! 



Location dependent: 



$303: 


JSR 


$39E 


319: 


JSR 


39E 


34A: 


JMP 


39C 


353: 


JSR 


39E 


369: 


JSR 


39E 


39E: 


JSR 


3A6 



If page 2 of TEXT/GR is to be used, it must 
be protected by a 'LOMEM:3072' for in- 
teger BASIC, or a 'special Load' (as 
described in article) when using Ap- 
plesoft. 

Note: $3AB must be changed from $05 to 
$1F for Applesoft. 



SYNERGISTIC SOFTWARE 

THE MODIFIABLE DATABASE 
by Chris Anson & Robert Clardy 

The Modifiable Database is a general purpose, user oriented 
database program that can be easily customized for your specific 
data management application. Create any number of application 
programs such as mailing lists, bibliography files, inventory con- 
trols, personnel files, accounting programs, etc. The only limita- 
tion is your own imagination. 

The program uses fast and flexible machine language search 
and sort routines, provides for easy record editing^ and can search 
or print up to 2 disks of records with a single command. All 
commands are invocable by a few keystrokes. There's never been 
an easier to use or more flexible data management program. 

Applesoft program requires 48K and disk $49.50 

Modifier Module 1 lets you add accounting and 
numeric processing features to your program $15.00 

Modifier Module 2 lets you format your output 
in any way desired (columnar, standard forms, 
suppressed fields, etc.) $15.00 

AVAILABLE AT YOUR LOCAL DEALER OR SEND CHECK OR INQUIRY TO SYNERGISTIC SOFTWARE, 
5221 120 AVE. S.E., BELLEVUE, WA 98006. WA RESIDENTS ADD 5.3% SALES TAX 





Did you read about the Dungeonmaster who became so 
enchanted playing a real life version of Dungeons and 

Dragons that he disappeared for a month? 

You'll be able to hold on to reality just a little better when you play 
the Dunjonquest™ computer version, the greatest of all the role-playing 

fantasies. 



But don't bet on it. 



Sit at your computer. You're the hero. Enter the 
Dunjonquest "Temple of Apshai" and into the 
greatest fantasy adventure you've ever experienced. 
The Temple has over 200 rooms and catacombs in 
which lurk more than 30 kinds of monsters and 
beasts ready to do you in — in real time — before you 
can reach any of the 70 or so treasures waiting for the 
hero. You may spend days, weeks, months . . . the rest 
of your life... striking at the forces of evil, or running 
from them, or calling on powers you can never com- 
pletely understand. Always, always demonstrating in 
varying degrees your strength, constitution, dexterity, 
intelligence, intuition, the force of your ego. 



Unlike chess or bridge or monopoly, 
this role-playing game — like other good 
role-playing games — is an experience 
rather than a game: it is not played so 
much as it's lived or experienced. Your 
alter ego goes forth into the world of 
demons and darkness, dragon's and 
dwarves. Your character will do what- 
ever you want him (or her or it) to do. 




Actual photo of screen during a Dunjonquest game. 

In Room 3 in the Temple of Apshai, our hero observes 
two treasures unattended by dragons, monsters or 
demons ... for the moment. He is completely free of 
wounds; he is not at all fatigued. He carries 44 pounds of 
armor and 19 arrows in his quiver. He has already slain 
five demons. Will he capture the treasures before moving 
on... or before the forces of darkness intercept him? 



"The Temple..." comes complete with a superbly 
illustrated 56-page rule book and cassette program, 
designed to operate with the Level II 16K TRS 80, the 
PET 32K or the Apple II 48K (Applesoft) computer. 
Only S24.95 complete, including shipping and 
handling on orders placed within the next 30 days. 
(Apple or TRS 80 disk available for $29.95). 

Dunjonquest 's "The Temple of Apshai" is guaranteed 
to be the best version of Dungeons and Dragons/ 
Dragons and Dungeons. It's a product of the two guys 
who are Automated Simulations: Jim Connelley and 
(on Freeman. Jim is a Dungeon Master, running con- 
tinuous D & D campaigns. He's been a data pro- 
cessing professional with Westinghouse, GTE 
Sylvania, Logisticon. . .an expert in computer-based 
math-modeling and in simulation of complex phe- 
nomena. Jon is a game player, designer and author. 
He's a frequent contributor to Games magazine; his 
book, "The Playboy Winner's Guide to Board 
Games" is a paperback best-seller. 

As we said, guaranteed: Guaranteed to be the best 
version; guaranteed that you'll be happy with it. 
Order now, use it for two weeks. If you don't enjoy 
completely this fantasy adventure experience that 
goes beyond all others, send it back to us. We'll 
refund your money in full; no questions asked. 

Master Charge or Visa card holders: charge "The 
Temple of Apshai" to your credit card. Just call our 
toll free number: (800) 824-7888, operator 861 (In 
California, call operator 861 (800J 852-7777. In 
Hawaii and Alaska, operator 861 (800) 824-7919) and 
you can begin enjoying your Dunjonquest game in 
days. Or send your check for $24.95* (or $29.95)" to 



A 



Automated 
Simulations 



Dept. lw 
P.O. Box 4232 
Mountain View, 
CA 94040 



•California residents, please add 6.5% tax. 




for the 




DOMINOES 



S 6.95 



OTHELLO 



S 9.95 





9 



LETTER SQUARES S 6.95 




RPN MATHPACK 



S19.95 





SUPER NIM 



S 6.95 





DIR/REF 



6.95 






SPACE WARS 



S 9.95 



GRAND PRIX 



S 6.95 



E.S.P. 



9.95 







FORECAST 



S 9.95 



S 6.95 



BLOCKADE 



9.95 






DEPTH CHARGE 



S 9.95 



BASKETBALL 



S 9.95 



SLOT MACHINE 



6.95 




HOME ACCOUNTING $ 9.95 



All orders include 3% postage and handling with a minimum of 
$1.00. California residents include 6% Sales Tax. 



VISA 



MASTERCHARGE 



PET IS A TRADEMARK OF 
COMMODORE BUSINESS MACHINES. INC. 




BATTLESHIP 



S 9.95 




PROGRAMMA 
INTERNATIONAL. Inc. 
3400 Wilshire Blvd. 
Los Angeles, CA 90010 
(213) 384-0579 

384-1116 

384-1117 




SHOOTING GALLERY S 9.95 



Dealer Inquiries Invited 



ZAP 



S 6.95 



The SY6516 Pseudo-16 Bit Processor 



While the 6502 is a great microprocessor as it stands, 
advances are being considered to make it even better. 
One of the approaches is to add some new capabilities 
such as some 16 bit operations, improved addressing, 
and more. 



Randall Hyde 
12804 Magnolia 
Chino, CA 91710 



For those of you who may have 
wondered what the 6502 equivalent of the 
MC6809 would be, wonder no longer. 
Synertek is almost ready to ship the 
SY6516. 

Synertek announced the 6516 almost a 
year ago, but due to production problems, 
it never quite made it. The 6516 was 
designed by Atari Inc. (back then it was to 
be called the 6509) for use with the Atari 
400 and 800 computer systems. Unfor- 
tunately, Synertek was unable to deliver 
the chip in time for Atari to use it in their 
computers. 

What is a Pseudo 16-bit Computer? 

A pseudo 16-bit computer uses an in- 
ternal 16-bit register arrangement, but ex- 
ternally it uses an eight bit bus. Sixteen 
bit data is multiplexed in, much like the 
Alpha Micro computer on the S-100 bus. 
In addition to the new 16-bit instructions, 
the 6516 maintains all of the 8-bit instruc- 
tions of the 6502. You may reassemble 
your source files currently on the 6502 
and run them directly on the 6516. All the 
information that I have recieved says that 
the 6516 is SOURCE code compatable 
with the 6502 and that it is OBJECT code 
incompatable with the 6502. I have heard 
rumors that Synertek is attempting to 
make the 6516 object code compatable, 
but quite honestly, I don't believe there is 
much chance of it happening. 

Unlike the Motorola MC6809, which 
has a distinct set of 8-bit instructions and 
a distinct set of 16-bit instructions, the 
SY6516 contains a special register (the 
"Q" register) which toggles the system 
back and forth between 8-bit operation 
and 16-bit operation. In addition, all 
registers in the 6516 (A, X, Y, and SP) are 



now 16-bits wide. The "Q" register con- 
tains four bits which may be programmed 
to put the accumulator in the 16-bit mode, 
the X-register in the 16-bit mode, the 
Y-register in the 16-bit mode, and memory 
in the 16-bit mode (for use with INC, DEC, 
ASL, ROL, ROR, LSR, etc.). If the ac- 
cumulator is programmed to be in the 
16-bit mode, then LDA will load the ac- 
cumulator with 16-bits, the low order byte 
coming from the specified address and 
the high order byte coming from the 
specified address plus one. If the ac- 
cumulator is in the 8-bit mode, then the 
LDA instruction behaves identically to 
the LDA on the 6502. The other registers 
(X, Y, and Memory) behave identically. 

It does not take twice as long to per- 
form a 16-bit instruction compared to the 
equivalent 8-bit instruction, as you might 
expect. Usually only one additional clock 
cycle is required. This means that 6516 
code will run as much as 3 times faster 
than 6502 code performing the same 
operation. 

In addition, several instructions have 
been "speeded up" over the 6502 
equivalent. For instance, implied instruc- 
tions now only require one cycle for com- 
plete execution (the 6502 requires 2). 
Several other instructions have been 
speeded up as well (see Table One). 

Variety of addressing modes is what 
makes the 6502 as flexible as it is. The 
6516 includes many more addressing 
modes in its instruction set. In particular, 
indirect addressing (without the indexed 
by Y or preindexed by X), 16-bit relative 
addressing (there is now a jump relative, 
so your code can be relocatable), and 
direct page addressing. 

Direct page addressing is something 



really special. It is available on the 6502 in 
a restricted form; on the 6502 it is called 
zero page addressing. Direct page ad- 
dressing is different , in that any of the 
256 pages in the 6516 address space may 
be used. The particular page is selected 
by the 8-bit direct page register "Z". The 
direct page facility should clear up many 
problems associated with zero page con- 
flicts occuring in the 6502. 

The New Instructions 

The 6516 has a total of 1 14 instructions 
(compared to the 6502's 56). This gives a 
total of 255 different opcodes. Some of 
the new instructions are listed on the 
next page. 

The User Flag 

Bit 5 of the P register has been undefin- 
ed to this point in the 6502. The 6516 
utilizes this bit as a user defined flag. In- 
cluded in the instruction set are instruc- 
tions to set and clear this flag, as well as 
branch if set, and branch if clear. This 
user defined flag will prove to be a great 
help to users who are writing a boolean 
function. Up till now, the 6502 program- 
mer had to use the carry or overflow flag. 
The user defined flag will help allieviate 
problems associated with the use of the 
aforementioned flags. 

The 6516 instruction set was defined to 
allow maximum capability with the 
minimum number of instructions possi- 
ble. For those of you who would really like 
to have seen an instruction of the form: 

JMP(LBL.X) 
you may simulate this by: 

LDY LBL.X 
YPC 



23:36 
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The instruction sequence still requires 
only 3 bytes (assuming LBL is a direct 
page reference) and the timing is 7 cycles 
which is only two cycles more than a 
straight jump indirect. This would ex- 
ecute just as fast as a JMP (LBL.X) in- 
struction were it included directly in the 
instruction set. 

For those of you who would like to have 
seen the auto-increment and auto- 
decrement instructions of the MC6809, 
once again they can be simulated by the 
6516. For instance, the sequence LAX, 
INX simulates a post increment and INX, 
LAX simulates a pre-increment. These in- 
structions require two bytes (the same as 
the 6809) and execute in 3 to 4 cycles 
(depending on whether you are in the 
eight-bit or 16-bit mode). This speed is 
comparable to the 6809. 

The only advantage of the 6809 over 
the 6516 is the 6809 multiply instruction. 
However, a software multiply on the 6516 
should execute fast enough so that it 
won't make that big a difference. 

The addition of two stacks in the 6809 
is no real advantage since you can 
simulate 2, 3 or even n stacks with one 
16-bit stack pointer. Those of you writing 
machine interpreters (such as the UCSD 
Pascal Pcode interpreter) will be able to 
simulate a stack machine quite easily on 
the 6516. 

In my opinion, Synertek has taken 
everything wrong with the 6502 and fixed 
it, in addition to adding several features 
which I had not even previously con- 
sidered. The 6516 is easily the most 
powerful 8-bit processor available (with 
due respects to the Intel 8088 which I 
would rate "almost there"). This opinion, 
incidently, is not just my own. EDN rated 
the 6516 above all the 8-bit processors 
and even some 16-bit processors, several 
months ago. If Synertek does indeed 
make the 6516 processor object code 
compatable with the 6502, it will definite- 
ly make the 6516 something you 
shouldn't scoff at. Why? Because 
oncethis happen, 50,000 APPLE II com- 
puters will be upgradeable directly to a 
16-bit processor and maintain software 
compatability with existing software. 
Likewise, the 70,000 or so PETs will be 
upgradeable and the OSI, and the KIM, 
and of course, the SYM. etc. etc. 

The only fault I find with the 6516 is the 
assembly language mnemonics chosen 
by Synertek. They should have followed 
the example laid down by Motorola and 
used mneomics which specify the action, 
leaving the decision of where the data is 
coming from to the operand field. 

I am currently writing a version of LISA 
(an interactive 6502 assembler for the AP- 
PLE II) for the 6516. I will maintain 
Synertek's syntax, however I will add 
several extensions to the syntax and in- 



little more pleasant to the die-hard com- 
puter scientist. 



struction set to allow a much more 
regular syntax. This should prove to be a 



The New Instructions 

(LOAD STACK POINTER FROM MEMORY) 
(LOAD HIGH ORDER ALL FROM MEMORY; 
(LOAD HIGn ORDER X-REG FROM MEMORY} 
(LOAD HIGH ORDER Y-REG FROM MEMORY) 
(LOAD ACC INDIRECT THROUGH X REG) 
(LOAD ACL INDIRECT THROUGH V REG) 
(STORE ACC INDIRECT THROUGH Y REG! 

(ADD W/G LARRY) 
(SUBTRACT W/O CARRY) 
(ADC X REG TO ACC) 
(ADD Y REG TO ACC) 
(ADD ACL TO X REG) 
(ADD ACC TO Y REG) 
(ADD MEMORY TL X REG) 
(ADD MEMORY TO Y REG) 
NEG(A)->A (2'S COMPLIMENT ACC) 

(ROTATE LEFT ACC) 
(ROTATE RIGHT ACC) 
(ARITHIMETIC SHIFT RIGHT ACC) 
(ROTATE AH LEFT THROUGH CARRY) 
(ROTATE AH RIGHT THROUGH CARRY) 
(ROTATE X REG LEFT THROUGH LARRY) 
(ROTATE X REG RIGHT THROUGH CARRY) 
(ROTATE Y REG LEFT THROUGH LARRY) 
(ROTATE Y REG RIGHT THROUGH CARRY) 



(TRANSFER Z TO ACC LOW) 
(TRANSFER Y REG TO PC) 
(TRANSFER PC TO Y REG) 
(EXCHANGE ACC BYTES) 
(EXCHANGE Y REG BYTES) 
(EXCHANGE X REG BYTES) 
(EXCHANGE X WITH Y REGI3TAR) 



(SET USER DEFINABLE FLAG) 
(CLEAR USER DEFINABLE FLAG) 
(LOAD G REGISTAR FROM MEMORY) 
(SET OVERFLOW FLAG) 

(BRANCH IF FLAG SET) 

(BRANCH IF FLAG CLEAR) 

(JUMP IF NOT EOOAL TO ZERO 16-BIT RELATIVE) 

(JUMP IF EQUAL. TO ZERO. 16-BIT RELATIVE) 

(16-BIT ACC PUSH) 
(16-BIT ACC PULL) 
(16-BIT X REG PUSH) 
(16-BIT X REG PULL) 
(16-BIT Y REG PUSH) 
(16 -BIT Y REG PULL) 
(PUSH Z REG ONTO STACK. 

PUSH Q REG ONTO STACK) 
(PULL G FROM STACK. 

PULL Z FROM STACK ) 

(COMBINATION Or PHD, FHX, PHY, AND PHZ) 
(COMBINATION Or PLDi FLX, PLY, AND PLZ ) 



(PERFORMS A JSR (*FFFO) 

(PERFORMS A JSR C$FFF2) 

(PERFORMS A JSR (SFFF4) 

(PERFORMS A JSR (SFFF6) 

(PERFORMS A JSR (SFFF8) 



LDS 


M-)S 


LHA 


M->AH 


LHX 


M->XH 


LHY 


M-)YH 


LAX 


M(X)->A 


LAY 


M(Y)->A 


SAY 


A-)M(Y) 


ADD 


A+M->A 


SUB 


A-M->A 


AXA 


A+X-)A 


AYA 


At-Y->A 


AAX 


A+X-)X 


AAY 


A+Y->Y 


AMX 


X+M->X 


AMY 


Y+M-)Y 


NEG 


NEGCA)- 


RLT 




RRT 




ASR 




RHL 




RHR 




RXL 




RXR 




RYL 




RYR 




TZA 


Z-)AL 


YPC 


Y->PC 


PCY 


PC-)Y 


XHA 


AL<->AH 


XHY 


YL<-)YH 


XHX 


XL<->XH 


XXY 


X< ->Y 




Q-x<->Gy 


SEF 


1->F 


LLF 


0->F 


LDQ 


M->Q 


SEV 


1->V 


BFS 




BFC 




JNE 




JEG 




PHD 


A-> (S) 


PLD 


(5)->A 


FriX 


X-> (S) 


PLy. 


( S ) - > X 


PHY 


Y-) (S3 


PLY 


( S ) - ! Y 


PHZ 


Z-XS), 




Q-XS) 


PLZ 


(S)-)0 




(S>- >z 


PHR 




PLR 




BR1 




BR2 




BR3 




BR4 




BR5 
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GREAT 
PET 
SOFTWARE 

"Precise, humanized, well documented an excellent 
value" are the applauds now being given to United 
Software's line of software. These are sophisticated 
programs designed to meet the most stringent needs of 
individuals and business professionals. Every package 
is fully documented and includes easy to understand 
operator instructions. 

DATABASE MANAGEMENT SYSTEM - A comprehensive, interactive 
system like those run on mainframes! Six modules comprising 42K ot 
programming allow you to; create, edit, delete, display, print, sort, 
merge, etc., etc. - databases of up to 10,000 records. Printer routines 
automatically generate reports and labels on demand. 60 pages of 
concise documentation are included. Requirements- 16-32K PET and 
2040 Dual Disk (printer optional) . . Cost $125 

ACCOUNTS RECEIVABLE/PAYABLE - A complete, yet simple to use 
accounting system designed with the small businessman in mind. The 
United Software system generates and tracks purchase orders and 
invoices all the way through posting "controlled" accounts payable and 
accounts receivable subsystems. 

Keyed Random Access file methods makes data access almost 
instantaneous. The low-cost solution for the first time computer user 
with up to 500 active accounts. Requirements - 32K PET, Dual Disk, any 
80-column printer. . . .Cost $175 

CASH RECEIPTS & DISBURSEMENTS - Makes it a breeze to track all 
outgoing payments made by any type of business operation. Checks 
are tracked by number and categorized by type of expense. Sorting, 
summary, and audit trails make it easy to post to general ledger. This 
system also categorizes incoming receipts. Uses KRAM file access 
method. Requirements - 32K PET, Dual Disk (printer optional). . Cost 

$99.95 

KRAM - Keyed Random Access Method - The new, ultra-fast access 
method for the PET Disk, provides keyed retrieval/storage of data, in 
either direct or sequential mode, by either full or partial key values. 
Written by United Software in 6502 machine code, and designed with 
the PET inmind.it exploits all the benefits of the PET Disk, allowing full 
optimization of your system. Eliminates the need for "Sort" routines! 
KRAM provides flexibility never seen on a micro before. KRAM is 
modeled after a very powerful access method used on large-scale IBM 
Virtual Storage mainframes. So "KRAM" all you can into your PET - it 
will love you for it. . . Cost $79.95 

(Sublicenses available to software houses.) 



PROGRAMS FOR 
ENTERTAINMENT 

Space Intruders 
("Best Game of 1979") ..$19.95 

Jury/Hostage 12.50 

Kentucky Derby/Roulette 9.95 

Alien I.Q./Tank 9.95 

Tunnelvision/Maze Chase 14.95 

Submarine Attack 9.95 

Battle of Midway 7.95 

Laser Tank Battle 9.95 

Swarm 14.95 



Super Startrek 14.95 

PET Music Box 29.95 

UNITED SOFTWARE 
PROGRAMS FOR BUSINESS 

Checkbook $15.95 

Mortgage 1 5.95 

Finance 12.95 

Bonds 12.95 

Stock Analyzer 22.95 

Stock Options 24.95 

6502 Macro Assembler . . . 49.95 



Look for the RED-WHITE-BLUE United Software Display at 
your local computer dealer, or send check or moneyorder, 
plus $1.00 shipping to: 

UNITED SOFTWARE OF AMERICA 

Dealer inquiries invited 



750 Third Ave. 

New York, N.Y. 10017 



DAKIN5 UTILITIES 



I 0AKIPIS mKAMUM AIDS ItlW ' 
TOOAT'S DAH 49/11/79 

1. iw nsra 

2. TW PUU* 

3. TW OUWCXH 

4. 1* TEH FIU COPT 

5. TW PR0*Ht 

6. tw calculator 

7. tw oisutti copt 

8. ChAhGE TOOAT'S DAT! 

arm tour sutaiON -> . 



** DAUNS PROGRAMING AIDS II W*l ~ 

• TOUT'S DAT! 11/17/71 

• I. TMt SCUM PRI4TII 

• 2. TW ARRAT IDITOR 

• j. tw copia 

• 4. TW PATCWI 

• S. TW LI* CROSS KPTHda 

• ft. TW VARIABLE CROSS REIERINU. 
" 7. TW CALCULATOR 11 

• ft. CMARGI TOOAT'S DATl 

• DCTF.R TOUR SELECTICM ->. 



The Cruncher removes REM statements and compresses code in Applesoft 
programs. The Prompter is a powerful data entry subroutine that can 
handle both string and numeric data. Options include using commas, 
decimal points, and leading zeros with right-justified numerics. A 
A maximum field length can be specified to prevent overflow in both 
numeric and alphanumeric fields. The Diskette Copy formats an out- 
put disk, copies each track, and verifies that the output matches 
the input. PLUS FOUR MORE UTILITIES TO AID YOUR OWN PROGRAMMING. 
Suggested Retail Price for DakinS Programming Aids is $39.95. 

The Copier copies absolutely any kind of file or program from one 
diskette to another. The Variable Cross Reference produces a cross- 
reference for all variable names used in an Applesoft BASIC program. 
The Line Cross Reference creates a cross-reference for an Applesoft 
BASIC program, showing where a given line is referenced by GOTO, 
G0SUB, THEN, or LIST statements. The Patcher allows you to display 
any sector of a diskette, and then to update any data within that 
sector. PLUS THREE MORE UTILITIES TO FACILITATE YOUR OWN PROGRAMM- 
ING. Suggested Retail Price for DakinS Programming Aids II is $49.95. 

Each utility package includes a program diskette and very complete 
documentation. The hardware requirements are an Apple II, 48K of 
memory. 2 Disk IPs, and a printer. Languages are Applesoft/Assembler. 

See your Apple dealer or contact DakinS Corporation, P.O. Box 21187, 

Denver, Colorado 80221. Telephone: (303) 426-609a r ..Dakin5 developed 

the business application software The Controller for Apple Computer Inc. 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





ISO-1 ^J ISO-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $54.95 

"ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $54.95 

•SUPER ISOLATOR (1SO-3), similar to ISO-1 A 

except double filtering & Suppression .... $79.95 
•ISOLATOR (ISO-4), similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $93.95 
•ISOLATOR (ISO-5). similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total . . . $76.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 6.00 
•CKTBRKR/SWITCH/PILOTany model 

(CBS) Add $11. 00 

PHONE ORDERS 1-617-655-1532 TST 

Zsy Electronic Specialists, Inc. 



171 South Main Street. Natick. Mass. 01760 



Dept.ITtl 



Announcing... 




OPTIMIZED SYSTEMS SOFTWARE 


UPGRADE YOUR APPLE II® WITH A NEW SYSTEMS SOFTWARE PACKAGE 


• Unified Operating System 

• Disk File Manager 

• Commercial Basic 

• Editor/Assembler/Debugger 

• Data Base Manager 




Optimized Systems Software does not use Apple DOS®. OSS is a unified and complete systems software 
package with its own Operating System and File Manager. The Operating System, the File Manager and 
the Basic combined use only slightly more RAM than Apple DOS® alone. Requires 48K Apple II® with 
Disk II. 


Operating System 

• Byte and Block I/O 

• Simple User Interface 

• Simple Device Interface 

(create your own) 


File Manager 

• Open, Read, Write, Delete, Lock, etc. 

• Random Access via Note & Point 

• Rle Names of Primary.Ext type 


Basic 

• Nine Digit Precision DECIMAL Roating Point 

• 32K Byte Strings 

• Variable Names to 256 significant characters 

• I/O Interface Statements 

(no PRINT "control-D...") 


Editor/ Assembler/ D ebugger 

• Une Editor 

(Edits Basic programs, too) 

• Mini Assembler 

• Maxi Assembler 

• Disassembler 

• Step, Trace, etc. 


Before Beginning 
Available NOW at Special Introductory Prices April 15 April 15 

• Operating System + Rle Manager + Basic $49.95 $69.95 

• Operating System + File Manager + ASM $49.95 $69.95 

• Operating System + File Manager + Basic + ASM $89.95 $109.95 

• Operating System + Data Base Manager (2nd Q) 


Order today. Add $2.00 for shipping & handling. California residents add 6% sales tax. Visa/Mastercharge 
welcome. Personal checks require 2 weeks to clear. 


Note: Apple II®, Apple DOS® are trademarks of Apple Computer, Inc. 


Optimized Systems Software 
Shepardson Microsystems, Inc. 
20395 Pacifica Dr., Suite 108 
■•Cupertino, CA 95014 
(408) 257-9900 





MICROCOMPUTER MEASUREMENT and 




TRS-80 INTERFACE 



DO 

r--^ 1 APMOD 

APPLE INTERFACE 



EXPANDER 

MODULE 



REMOTE 
CONTROLLER 



SENSORS 

• TEMPERATURE 

• LI6HT LEVEL 

• PRESSURE 

• pH 

• HUMIDITY 

• ACCELERATION 

• SOUND 

• ETC... 

REMOTES 

• APPLIANCES 

• LIGHTS 

• MOTORS 

• PUMPS 

• ALARMS 

• HI-FIS 

• TELEVISIONS 

• HEATERS 

• FANS 

• ETC... 



The world we live in is full of variables we 
want to measure. These include weight, 
temperature, pressure, humidity, speed and 
fluid level. These variables are continuous 
and their values may be represented by a 
voltage. This voltage is the analog of the 
physical variable. A device which converts 
a physical, mechanical or chemical quanti- 
ty to a voltage is called a sensor. 

Computers do not understand volt- 
ages: They understand bits. Bits are digital 
signals. A device which converts voltages 
to bits is an analog-to-digital converter. 



Our AIM 16 (Analog Input Module) is a 16 
input analog-to-digital converter. 

The goal of Connecticut microcompu- 
ter in designing the uMAC SYSTEMS is 
to produce easy to use, low cost data 
acquisition and control modules for small 
computers. These acquisition and control 
modules will include digital input sensing 
(e.g. switches), analog input sensing (e.g. 
temperature, humidity), digital output con- 
trol (e.g. lamps, motors, alarms), and 
analog output control (e.g. X-Y plotters, or 
oscilloscopes). 



Connectors 





The AIM 16 requires connections to its 
input port (analog inputs) and its output 
port (computer interface). The ICON (Input 
CONnector) is a 20 pin, solder eyelet, edge 
connector for connecting inputs to each of 
the AIM16's 16 channels. The OCON 
(Output CONnector) is a 20 pin, solder 
eyelet edge connector for connecting the 
computer's input and output ports to the 
AIM16. 

The MANMOD1 (MANifold MODule) 
replaces the ICON. It has screw terminals 
and barrier strips for all 16 inputs for 
connecting pots, joysticks, voltage 
sources, etc. 

CABLE A24 (24 inch interconnect cable) 
has an interface connector on one end 
and an OCON equivalent on the other. This 
cable provides connections between the 
uMACSYSTEMS computer interfaces and 
the AIM 16 or XPANDR1 and between the 
XPANDR1 and up to eight AIM 16s. 



Analog Input Module 




The AIM 16 is a 16 channel analog to digital 
converter designed to work with most 
microcomputers. The AIM16 is connected 
to the host computer through the compu- 
ter's 8 bit input port and 8 bit output 
port, or through one of the uMAC SYS- 
TEMS special interfaces. 

The input voltage range is to 5.12 
volts. The input voltage is converted to a 
count between and 255 (00 and FF hex). 
Resolution is 20 millivolts per count. Ac- 
curacy is 0.5% ± 1 bit. Conversion time 
is less than 100 microseconds per channel. 
All 16 channels can be scanned in less than 
1.5 milliseconds. 

Power requirements are 12 volts DC at 
60 ma. 

The POW1 is the power module for the 
AIM16. One POW1 supplies enough power 
for one AIM16, one MANMOD1, sixteen sen- 
sors, one XPANDR1 and one computer in- 
terface. The POW1 comes in an American 
version (POW1a) for 110 VAC and in a 
European version (POW1e) for 230 VAC. 



TEMPSENS 




This module provides two temperature 
probes for use by the AIM16. This 
module should be used with the MANMOD1 
for ease of hookup. The MANMOD1 will 
support up to 16 probes (eight TEMP- 
SENS modules). 

Resolution for each probe is 1°F. 



XPANDR1 

The XPANDR1 allows up to eight Input/ 
Output modules to be connected to a com- 
puter at one time. The XPANDR1 is 
connected to the computer in place of the 
AIM16. Up to eight AIM16 modules are 
then connected to each of the eight 
ports provided using a CABLE A24 for 
each module. Power for the XPANDR1 
is derived from the AIM16 connected 
to the first port. 




CONTROL for PET, Apple, KIM, and AIM 



r. 



a 



SYSTEMS J 



Computer Interfaces 
and Sets 





For your convenience the AIM16 comes as 
part of a number of sets. The minimum 
configuration for a usable system is the 
AIM16, one POW1, one ICON and one 
OCON. The AIM16 Starter Set 2 includes 
a MANMOD1 in place of the ICON. Both 
of these sets require that you have a 
hardware knowledge of your computer 
and of computer interfacing. 

For simple plug compatible systems 
we also offer computer interfaces and sets 
for several home computers. 



INTRODUCING 
SUPER X-10 MODULE 
Open a door or window and turn on a 
light, tape recorder, alarm! 

Control lab equipment. CLOSE THE 
LOOP on the real world. 

AN INEXPENSIVE CONTROL 
SOLUTION FOR 

HOME SECURITY 
ENERGY CONSERVATION 

GREENHOUSES 
ENVIRONMENTAL CONTROL 
INDUSTRIAL CONTROL 
LABORATORIES 

SUPER X-10 MOD SPECS 

1. Remote controller 

Controls up to 256 different remote 
devices by sending signals over the 
house wiring to remote modules. Uses 
BSR remote modules available all over 
the USA (Sears, Radio Shack, etc.). 
Does not require BSR control module. 
Does not use sonic link. 

2. Clock/calendar 

Time of day ■ hours, minutes, seconds 
Date - month, day - automatically cor- 
rects for 28,29,30 and 31 day months. 
Day of the week. 

3. Digital inputs/outputs 

8 inputs - TTL levels or switch closures. 

Can be used as triggers for stored 

sequences. 
8 outputs - TTL levels 
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PLUS: 
CLOCK, CALENDAR, 
REMOTE SEQUENCE TRIGGERS 



4. Computer interfaces 

S-100: Requires one 8-bit input port and 

one 8-bit output port. 

Requires cable assembly. 

PET, APPLE, TRS-80, KIM, SYM, AIM65: 

Plug-in sets available - no cable assembly 

required. 

Other: same as S-100 

5. Self-contained module in metal case with 
its own power supply. Physical size 
approximately 5X6X2. 

Price (until April 30, 1980): $199.00 (S-100), 
$249.00 (other) 

All prices and specifications subject to 
change without notice. Our 30-day money 
back guarantee applies. 



AIM16 (16 channel-8 bit Analog 

Input Module) 179.00 

P0W1a(POWermodule-110VAC) 14.95 

P0W1 e (POWer module-230 VAC) 24.95 

ICON (Input CONnector) 9.95 

OCON (Output CONnector) 9.95 

MANMOD1 (MANifold MODule) 59.95 
CABLE A24 (24 inch interconnect 

cable) 19.95 
XPANDR1 (allows up to 8 Input or 
Output modules to be connected to a 

computer at one time) 59.95 
TEMPSENS2P1 (two temperature probes, 

•10°Fto160°F) 49.95 

LIGHTSENS1 P1 (light level probe) 59.95 

The following sets include one AIM16, 
one POW1, one OCON and one ICON. 
AIM16 Starter Set 1a (110 VAC) 189.00 

AIM16 Starter Set 1e (230 VAC) 199.00 

The following sets include one AIM16, 
one POW1, one OCON and one MANMOD1. 
AIM16 Starter Set 2a (110 VAC) 239.00 

AIM16 Starter Set 2e (230 VAC) 249.00 

The following modules plug into their 
respective computers and, when used 
with a CABLE A24, eliminate the need for 
custom wiring of the computer interface. 
PETMOD (Commodore PET) 49.95 

KIMMOD(KIM,SYM,AIM65) 39.95 

APMOD (APPLE II) 59.95 

TRS-80 MOD (Radio Shack TRS-80) 59.95 
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SYSTEMS 

Order Form 



CONNECTICUT microCOMPUTER , Inc. 

750 POCONO ROAD 

BROOK FIELD, CONNECTICUT 06804 
TEL: (203) 775-9659 TWX: 710-4560052 



The following sets include one AIM16, 

one POW1, one MANMOD1, one CABLE 

A24 and one computer interface module 

PETSETIa (Commodore PET - 

110 VAC) 295.00 

PETSETIe (Commodore PET • 

230 VAC) 305.00 

KIMSETIa (KIM, SYM, AIM65 - 

110 VAC) 285.00 

KIMSETIe (KIM, SYM, AIM65 - 

230 VAC) 295.00 

APSETIa (APPLE II -110 VAC) 295.00 

APSETIe (APPLE II -230 VAC) 305.00 

TRS-80 SET1a (Radio Shack TRS-80 - 

110 VAC) 295.00 

TRS-80 SET1e (Radio Shack TRS-80 • 

230 VAC) 305.00 



QUANTITY 


DESCRIPTION 


PRICE 


TOTAL 


































































































SUBTOTAL 




Handling and shipping — add per order 


$3.00 


Foreign orders add 1 0% lor AIR poslage 




add 7% sales tax 




TOTAL ENCLOSED 





COMPANY_ 
ADDRESS - 



CITY 

STATE 

VISA O M/C O 
Card number 



ZIP. 



Expiration date . 
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Just about a year ago, Skyles Electric Works introduced 
a 15 inch wide keyboard with all PET functions on nice, 
plump, full-sized keytops with torsion spring action. 
S.E.W. knew that most owners of the PET 2001-8 couldn't 
remain happy with the undersized keytops and unsatis- 
factory spring action. 

Now you have announced that, effective in January of 
1980, all PETs and CBMs would feature full sized key- 
boards . 

So, thank you, Commodore, for confirming that S.E.W. 
was right all along. 



Meanwhile, S.E.W. hasn't been resting. ..and now offers with the Big 
Key Board an 1 8 inch ribbon cable at no extra charge. . .and a cassette tape 
containing BASIC and machine language programs that convert the Big 
Key Board to ASCII or typewriter operation, including lower case 
characters, and upper case through the shift key. Even a shift lock, 
quotations in the proper place, numbers across the top row. 



»*% *■■** m* *m 

Omti xm- «W8* *8 --• 



• "-- w m> mm mm 
*** mm «m mm 
mt <m m* sum 



All keytops double shot for lifetime durability. Switching action uses gold cross-point 
contacts; torsion springs are gold plated. Housing is black heavy gauge aluminum. Entire 
unit can be rinsed to clean under water and left to dry. 120 day warranty. Onlv $125 00* 

MICRO SUBSCRIBERS SPECIAL TILL MAY 15, 1980 $99.50* 

Wouldn't You Love Your PET 2001-8 Even 
More With the Skyles Big KeyBoard? 

Enclosed is my MICRO address label showing subscription number, please send 
.Big Keyboard (s).Enclosed is a check $ *.. Charge my VISA, Mastercharge 



(circle one) #. 



Expires. 




•California residents: please add 6% or 6.5% sales lax as required 



Skyles Electric Works 



231 E SouthWhismanRoad 
MountainView.CA 94041 
(408) 735-7891 



PET Key sort 



One of the most useful operations to perform on a real 
data base is a keysort. On the PET, due to some problems 
in the 'garbage collection' procedures, sorting string 
arrays can become very time consumming. A complete, 
general purpose keysorting program is presented which 
has many useful features and is efficient. 



Rev. James Strasma 

120 West King Street 

Decatur, I L 62521 



One of the most needed features of any 
business database program is a good 
sort routine. On the PET computer, there 
is also a real need for a way to sort string 
arrays without changing the strings. This 
is due to a quirk in the PET's "garbage 
collection" routine. PET was designed so 
every time a string is changed, a new 
string is created. Old versions are erased 
only after memory is filled. Then it deletes 
all the unneeded strings at once. As 
string space increases, collection time in- 
creases dramatically. With 24K of strings 
in memory, it can take several minutes. 

Until future ROM's speed this process, 
it is best to avoid unneeded string 
manipulations. This makes a different 
sort program essential. For example, in 
an attendance program I developed, a 
heapsort is used. The heapsort itself 
takes about 20 minutes to sort 500 
records. However, garbage collection 
adds another 2 hours! Clearly this is 
unacceptable. 

One solution would be to define 
another array of integer string pointers, 
and sort that array. This would avoid mov- 
ing strings entirely. As it happens. BASIC 
already stores its strings that way. Each 
string array is a table or pointers to 
another array of the actual strings. The 
pointers are above the program in 
memory, at the end of the variables. The 
strings are usually at the top of memory, 
though they may be anywhere. 

I wrote a 'pointer sort' using the pointer 
table. It worked, but took too much 
memory, and had to be part of each pro- 
gram using it. I decided to put it in 
machine language instead. In the final 
form, it uses just under 1K of memory, at 
the top of memory. It resets BASIC'S top 
of memory pointer to protect itself from 



BASIC, and saves a copy of PET's 
zerobase to protect basic from the pro- 
gram. The other main features of 
KEYSORT, are as follows: 

1. extreme speed 

2. simple operation 

3. has defaults for all options 

4. works with BASIC arrays 

5. Remains until PET is reset 

6. accepts any number of fields 
within a string 

7. sorts any specified string array in 
memory 

8. accepts any character as a field 
marker 

9. both strings and fields may in- 
dividually vary in length 

10. extensive error ckecking 

The two BASIC demonstration pro- 
grams will illustrate these features. 
Listing #1 creates an array of random 
strings to sort. It does 3000 names in 28 
seconds. Once you create an array to 
sort, merely enter 'sys(31841)' to sort it, 
either directly or from a program. Later, 
when you are ready to sort on an array 
other than the first in memory, try out 
listing #2. It uses all of KEYSORT's op- 
tions at once. First, it selects the 'a$' ar- 
ray as the one to sort, ignoring all other 
arrays. Second, it selects the > character 
as the marker between fields. Using a 
marker allows one string to hold about 
128 separate fields at once. The array 
may be instantly resorted on any of these 
fields, as shown in sample run #2, which 
sorts on field #4, actually the fifth field, 
since there is a field #0.) You may sort by 
name one minute, by birthdate the next 
and by zip code after that. 

There is no need for strings to have a 
fixed length. Nor is there any need for 
fields within strings to be any special 



length. This avoids any waste of array 
space. KEYSORT's default field marker is 
the [tab] character, chr$(9). This is easily 
changed, as shown in listing #2. Also 
there need not be any end of field marker 
unless you select one. Listing #1 works 
fine without fields. If time is very impor- 
tant to you. Note that using fields 
doubles the sort time. In return, it allows 
you to maintain a single data base, for 
several programs, and sort only the fields 
needed by the particular program current- 
ly in use. That saves a lot of typing time. 

When you study the asssembly source 
listing of KEYSORT, you will note a 
subroutine called 'spg'. This is a routine 
any 6502 owner can use to save up to half 
of zero base. By placing it at the end of 
the normal program flow, it only has to be 
called once, and its ending 'rts' then 
returns to BASIC. 

After you assemble and save a copy of 
KEYSORT, call it without any arrays in 
memory. You will immediately see: 

?array error 
ready 

This is KEYSORT's error message. 
Here it means no array was found. 
However, in the process, it reset Himem 
to protect itself from BASIC. You should 
do this each time you load KEYSORT, 
before defining strings. Otherwise they 
will overwrite the program. Note that if 
another program has already moved 
Himem lower than KEYSORT needs, the 
program leaves it alone. 

If you see the '?array error' message at 
other times, one of several things has 
gone wrong. Perhaps there is no array to 
sort, ie. you cleared the variables. Or 
maybe the array has more than one 
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dimension— only one is allowed. (Un- 
sorted arrays may have all the dimen- 
sions you wish. 

Then again, you may have erred in pok- 
ing in KEYSORT: that becomes the 
default for future sorts. Note that at the 
end of listing #2, the seven command 
locations are reset to zero. Unless the 
next sort uses the same KEYSORT 
features or more, you will need to zero 
those functions not desired in the next 
sort. 

Both the assembly listing and the hex 
dump of KEYSORT here are for a 32K 
PET. However, the program is easily 
relocatable. There is no data in the body 
of the program, and the program does not 
change itself. To relocate it, merely 
change all of the high order bytes of 3 
byte instructions, except for the one that 
jumps to $C357 at $7 of 8. This is a call to 
the new ROM's error message printer. 
Table #1 shows all the locations to 
change for relocation at the top of all PET 
model's memory. If you have an "old 
ROM' PET, (8K '79 or earlier vintage), you 
will need to make the changes listed in 
table -2. You will also be limited to 256 
element arrays, as the old ROM's couldn't 
handle more elements than that at once. 

Other 6502 users with Microsoft may 
be able to adapt KEYSORT to their needs. 
My local 6502 group is converting it to the 
Apple, which uses a similar memory 
structure. It may help you to know how 
PET stores arrays. Each array starts with 
7 housekeeping bytes. The first byte of 
the first array's housekeeping is address- 
ed by 'aras' in BASIC ($2c-2d,) low and 
high.) The last aray ends just before the 
address in 'eara', ($2e-2f). The first 2 
housekeeping bytes in each array contain 
its name. If it is a string array, $80 will be 
added to the second character of the 
name as a flag. Even if there is no second 
character.byte 2 will contain $80. Bytes 3 
and 4 are the low and high bytes of the of- 
fset from the start of the current array to 
the start of the next one. Byte 5 is the 
number of dimensions in the array, 1-3. 
Bytes 6 and 7 are the HIGH and low bytes 
respectively of the number of elements in 
the array. (This is backwards from the 
usual 6502 format.) There will be 1 more 
element than in the DIM statement, as the 
0th element counts too. The 0th element 
begins immediately after the housekeep- 
ing bytes. Each element consists of 3 
bytes. The first is the length of the string. 
The other 2 are the low and high bytes 
long. Also, when first dimensioned, all the 
length bytes and address bytes are set to 
zero. 

I wont't try to fully explain the BASIC 
and assembly listings of KEYSORT; they 
are fully commented. The only unusual 
feature in the BASIC programs is the use 
of PET's built-in 60th of a second jiffy 
clock, Tl. When entering the assembly 
source, save $3500 for the text file and 



$0200 for labels. If you have less room 
available, delete some comments. 

If you have questions about KEYSORT, 
or need help, write me at the above ad- 
dress. Please include a stamped reply 
envelope. If you want a custom tape copy 
of KEYSORT, please send along $5 for my 
time. Also, specify the starting or ending 
address you wish, and which ROM set 
you have. 

Table 1: Locations to change on 
relocation 



Table 2; Changes for using old ROMs 
Source Changes: 

Line 430 ARAS .DE $7E 

Start of array space [650 & 670] 
Line 440 EARA .DE $80 

End of array space [1080 & 1120] 
Line 450 HIM .DE $86 

End of memory [560, 590, 610, 
&630] 
Line 460 ARER .DE $85 

Offset into error table [1320] 
Line 470 ERRP .DE $C359 

Error msg. and stop [1330] 



$7C is found at: 


$7C62 








7EFF 


7F3A 




Object Code Changes 




$7D is found at: 


$7C75 








7CF5 


7D33 


$7C77 : 


= $7E $7C7B = 


-- $7F 


7EAD 


7EDC 


$7CC7 


= $81 $7CCF : 


= $80 


$7E is found at: 


$7DF7 


$7C64 ■ 


= $87 $7C6A : 


= $87 


7E48 


7E87 


$7C6E : 


= $86 $7C72 = 


= $86 


$7F is found at: 


$7D44 


$7CF7 : 


= $85 $7CF9 = 


= $59 


7D8F 


7DA4 








7DAA 


7DC7 








7E0C 


7E68 








7E9A 


7EB8 
7ECB 








To relocate for: 










PET 4K, change 7s to 0s 










PET 8K, change 7s to 1s 










PET 16K, change 7s to 3s 










Code will reside at Himem. 











100 REM> SORT DEMO #1 

110 PRINT"SflMPL£ RUN FOR LISTING #1": PRINT 
120 SZ=18-REM> HRR.RV SIZE 
ISO DIM H*(SZ> 

140 REM> MfiKE UP STRINGS TO SORT 
150 FOR 1=0 TO SZ 
160 9.$="" 

170 • FOR J=l TO 10*RNIK0>+1 
130 : : H$=fit+CHR$<G5+26WNIK0)> 
190 : NEXT 
200 •' R$ (!>«&$ 
210 : PRINT I. .fit- 
220 NEXT 

230 T1=TI-'REM> ZERO THE CLOCK 
240 SVS<31845> : REM> SORT 
250 T2=TI-REM> STOP THE CLOCK 
260 PRINT •PRINT"ORDER AFTER SORTING" : PRINT 
270 REM> PRINT THE SORTED STRINGS 
2S0 FOR 1=0 TO SZ 
290 : PRINT l,B$<I> 
300 NEXT 

310 REM> BRRG ABOUT THE TIME REQUIRED 
320 PRINT :pRINT"TIME TO S0RT="';T2-Tl >/S0" SECOND? 
REflDV. 
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108 
110 
120 
130 

140 
158 
160 
170 
1 80 
198 

200 

210 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 
440 
450 
460 
470 
430 
490 

500 

510 
520 
530 
540 
550 
560 
570 
530 
590 

600 

610 
620 
630 
640 
650 
660 
670 



REM> KEVSORT DEMO #2 

PR I NT "SAMPLE RUN FOR LISTING #2": PRINT 
SZ=10:REM> flRRftV SIZE 
F1=4-'REM> FIELD # TO SORT EV 
D 1 =PSC .:.":>">■ -REM> FIELD DELIMITER 
S*="A*"-REM> SORT RRRflV NAME 
ZC=3273i:REM> START OF Z.P. COPV 
NMFL=ZC+2 ■ REM> FLAGS GIVEN ARRAV 
FLAGS NEW DELIM. 
STORES DELIMITER 
FLAGS KEV FIELD 
STORES KEV FIELD 



DFLG=ZC+3 •■ REM> 
DLIM=ZC+4-REM> 
FDFL=ZG+5 : REM> 
FLDS=ZC+6 • REM> 



# 



DIM D*a0,2;'-REM> GARBAGE 

DIM CH<19> 

DIM D(19) 

DIM A*CSZ; -REM> ACTUAL SORT ARRAV 

REM> MAKE UP STRINGS TO SORT 

FOR 1=0 TO SZ 

: fi*="" 

• FOR K=l TO 5-REM> # OF FIELDS 
: FOR J=l TO 10*RND<0)+1 

: A*=A*+CHR*<65+26*RND<0>> 
: NEXT 
: = REM> FIELD DELIMITER 

: IF K<5 THEN A*=At+CHR$-: Dl ) 

• NEXT 

•■ ft*<I>=fi* 

• PRINT I, A* 
NEXT 

TELL SORT FIELD 

FDFL..ASC C"#") 

TELL SORT WHICH 

FLDS..F1 

GIVE SORT NEW DELIMITER 

DLIM,D1 

TELL SORT 

DFLG, ASC< 

CHANGE SORT ARRAV 

TELL SORT SETTING 



REM> 
POKE 
REM> 
POKE 
REM> 
POKE 
REM> 
POKE 
REH> 
REM> 
POKE 
POKE 



# IS GIVEN 
FIELD TO USE 



TO CHANGE DELIMITERS 

NAME TO BASIC 
NAME 



NMFL..ASC <"$"> 

ZC,ASC(Sf>:REM> CHARACTER #1 
S2=ASC';MID*';S$,2>>-REM> & #2 
IF S2=ASC("*"> THEN S2=128 
POKE ZC+1,82 

t1=ti--rem> zero the clock 
svs ( 3 1 84 1 > ■• rem> sort 
t2=ti-rem:> stop the clock 
rem> cancel special options 
for i=zc to zc+6 

: POKE 1,0 

NEXT 

PRINT •■ PRINT "SORTED ON FIELD #"F1 : PRINT 

REM> PRINT THE SORTED STRINGS 

FOR 1=0 TO SZ 

: PRINT I,A*a> 

NEXT 

REM> BRAG ABOUT THE TIME REQUIRED 

PRINT: PRINT "TIME TO SORT="<T2-Tl>/60" SECONDS 



RE ADV. 



Classified Ads 



C1P software-Carz/Chase real-lime 
games. $6.95; Graphics/Billboard 
$4.95; two screen clears, one for 
BASIC programs, one for imm. 
mode $7.95; Learning OSI Basic 
$14.95. COD or Money order, SASE 
for catalog. Order from: 

OMEGAWARE SOFTWARE 

1418 Hanson Drive. 

Normal, IL 61761 
(309) 454-1507 



ZIPSOFT Presents: Number Match. 
A program to stretch your memory. 
Match sequence of numbers, col- 
ors and sounds. Different speed 
levels. Requires Apple II with In- 
teger Basic and 16K. Tape $8.95, 
Disk (32K req.) $15.00. Order from: 

Z. Gittler 

50 Remsen Avenue 

Monsey, N.Y. 10952 

Apple II program to output to and 
input from ASR 33 or 35 Teleype. 
Gives multiple line feeds at end of 
each page and waits for you to tear 
off roll paper or insert new single 
sheet. Uses game connector. 
Listing and instructions, $2.00. 
Order from: 

Ken Ellis 

RD 8. Box 344 

York, PA 17403 

Ohio Scientific. Expansion Help for 
C1P, C2. C4, C8 and C3. Parts, 
cables, boards, IC's, books, 
schematics. Contact: 

Silver Spur 

Electronic Communications 

Co. 

P.O.Box 365 

Chino, CA 91710 

Attention APPLE Owners! A com- 
plete General Ledger, allowing 9 
departments and 10 levels of sub- 
totals. Virtually unlimited capacity. 
Will process 1,000 postings into 70 
accounts in less than 30 minutes. 
Contact: 

Small Business Computer 

Systems 

4140 Greenwood 

Lincoln, NE 68504 

Brand New Commodore PET 
2001-8, 32K. Video Display. Will sell 
at best offer; 216/543-7785. 
Dr. John W. Cook 
8670 Tanglewood Trail 
Chagrin Falls, OH 44022 



Sample Run for Listing 2 

@ BCHRFE>flKKVTGFCH>DG>XT>NTUTHO 

1 VKNJZBKT>NJVSMVI>UOF>NVCCINWGVG>VSCF 

2 IHRQ>WflGQWNEX>X>MP>QGCORK 

3 QJ>HQMWUE>UKQC>GVKPMF>VZ 

4 I>GZTWM>RLH>XSBP>MLWDPWO 

5 E>FL>Q>DRET>SIVR 

6 F>WU>ZNEZ0HC JG>PTQDL I G>ZVGLflH 

7 G>TFZBLKPN>NPCHNZSXMV>GSKC>BWIBSZ 

8 NSBNBTKBO>LPRJWBO>VLCB>FI>OXU 

* SQP I FSBR> GK VS JCH> WBHCUQ> WQOBPC>ZS I GN 
10 ELDQENO>hV>Z>L>VhGKJHQR 



4iHmQmui\msti&u 



Sorted on Field 4 

G G>TFZELKPN>NFCHNZStfMV>GSKC>EW I DSZ 

1 I>G2TWM>RLH>XSBP>MLWDPW0 

2 ECHRFE>HKKVTGFCH>DG>KT>NTUTHO 

3 NSBNETKEG>LPRJWE0>VLCD>FI>0XU 

4 IHRQ>WHGQWNEX>X>MP>QGCORK 

5 E>FL>Q>BRBT>SIVR 

6 ELDuENO>flV>Z>L>VHGK.JHQR 

7 QJ>HQMWUE>UKQC>GVKPMF>VZ 

S VKNJZEKT>NJVSMVI>UGF>HVGCIHWGV'G>VSCF 
9 SQP I FSER>GKVS JCH>WDHCUQ>WQ0DPO2S I GN 
1 G F>W0>ZNB20HC JG>PTQDL I G>ZVGLflH 

TINE TO SORT= .0333333333 SECONDS 
REHHV. 



0010 
0020 
0030 
0040 
0050 

9060 

O07O 
00S0 
0090 
0100 
0110 
0120 
013O 
0140 
0150 
0160 
0170 

0130 
0190 

0200 
0210 

0220 
0230 
0240 
0250 
026O 
0270 
0280 
0290 
0300 

031O 

O320 
0330 

0340 
035O 
0360 
0370 
0380 s 
0390 '-.•' 1 
040O ; 
0410 : 
0420 



pet keysort 
..' a multi-key sort tor- ret basic zrr *aws 



by rev. J Bides strama 
120 w. kins st. 
deoatur, i 1. 62521 



sart 



•as ot feb. 14, 1980 



, foa $7o61 



,'first 5 var.s poked from basic 



arnrri 
nmf 1 
df 1-3 
d I i«m 
f df I 
fids 



; most v ar 

i 

j 

k 

I 

In 

inl 

lr.2 
n 
rl 
r2 



. de $00 

. de $02 

.de $03 

. de *04 

.de $05 

.de *06 



;sys<31841) 



.; stores array name 
.; array se leoted f las 
.: de I i m i ter set f la*i 
.■ de 1 1 m . char . 
; key field set f last 
;sort field # 



r4 



s as in basic heapsort 

. de $0? 

.de $kf9 

.de *0b 

. de $<■-■•:! 

.de $0f ,1 by-* lengths 

.de $10 

.de $11 

. de $12 .; e lements in array 

.de $14 

.de $17 

.de $la 

.de $lci 

. de $20 

. de $23 






..'pointer star-t-3 



,' rom-dependent •■,<3r. s 
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0430 


31*33 


. de 


*2c 








0440 


ear -a 


. de $2e 








0450 


h i m 


a W" 


$34 








0463 


■rtf" &T' 


. de 


$30 








0470 


errr-' 


.de 


•t-.-.-.'^T" 








0430 


j 












0490 


.; 












0500 


.; other 


la.be Is 










0510 


dch 


.de 


$09 








0520 


loos 


.de 


f24 








0530 


.; 












0540 


', 






7061- 


R9 


7C 


0550 




Ida 


#h,sart 


7C63- 


05 


35 


0560 




01B» 


*'him+l 


7C65- 


F& 


04 


0570 




beet 


hok 


7067- 


B@ 


0fl 


0580 




bos 


S3.V 


7C69- 




-|C7 


0590 




sta 


*him+l 


7C6E- 


R9 


61 


0600 


hok 


Ida 


#I,sart 


7C6D- 


C5 


34 


0610 




CHIP 


*him 


7C6F- 


B0 


02 


0620 




bos 


sav 


7071- 


i-.cr 
0%_' 


34 


0630 




sta 


*'h i m 


7C73- 


20 


R0 7D 0640 


say 


j sr 


SP3 


7076- 


R5 


2C 


0650 




Ida 


#aras 


7C78- 


(-icr 


15 


0660 




sta 


*rl + l 


7C7H- 


R5 


2D 


0670 




Ida 


*eras+l 


7C7C- 


85 


lb 


0680 




sta 


*rl+2 


7C7E- 


fl5 


02 


0690 




Ida 


*nmf 1 


7080- 


C9 


24 


0700 




Cfl»0 


#""* 


7C82- 


F0 


0b 


07 1 




beet 


ckna 


7084- 


fi9 


80 


0720 




Ida 


#*S0 


7C86- 


85 


00 


0730 




sta 


fcarnm 


7C88- 


85 


01 


0740 




sta 


*arnm+l 


7C8R- 


R0 


00 


0750 


ckna 


Ida 


#0 


7CSC- 


El 


15 


0760 




Ida 


Crl+D.y 


7C3E- 


C5 


00 


0770 




GffiP 


#arnm 


7C90- 


F0 


06 


O780 




be*t 


lok 


7092- 


R9 


80 


0790 




Ida 


#*80 


7094- 


CS 


00 


0300 




CfiiP 


*arnm 


7096- 


D0 


08 


0310 




bne 


Birnra 


7098- 


08 




0820 


lofe 


iny 




7099- 


El 


15 


0830 




Ida 


Crl + lX.y 


7C9B- 


C5 


01 


0840 




cm* 


*arnm+I 


7C9B- 


30 


01 


0350 




bmi 


wrnm 


7C9F- 


'-• O 




0860 




iny 




70RQ- 


93 




0370 


wrnm 


tya 




7CR1- 


RR 




0330 




tax 




7CH2- 


A5 


03 


0S90 




Ida 


*df lg 


7CR4- 


09 


25 


0900 




omjo 


#■;; 


7Cfl6- 


F0 


04 


0910 




be^t 


tlo2 


7C'fl8- 


R9 


09 


0920 




Ida 


#doh 


7CRR- 




04 


0930 




sta 


*dlim 


7CRC- 


R5 


05 


0340 


f lc2 


Ida 


*f df I 


7CRE- 


C3 


C.W 


0950 




OlTiP 


#•'# 


7CE9- 


F0 


04 


0960 




beet 


f loh 


7CE2- 


fly 


00 


0970 




Ida 


#*00 


7024- 


•Z'Cr 


0b 


0380 




sta 


*f Ids 


70B6- 


R0 


02 


0390 


f loh 


Idy 


#2 


7CE8- 


El 


15 


1 000 




Ida 


<?-•!+! > .. y 



.; start of array space 
end ot array sra.ee 
■ end ot memory 
..'offset Ki/i error tab le 
; error msg. £ stor 



tab char. 

# ot locations to flip 



lower hi mem 

' un less a Iready lower 



..'hi., then lo 



sa.':-'e z.K>. 

set current -array rtr, 

ourr. 3T, st. 



i t lass array name 
rtind name to mat oh 
: basic "s $ .Brrs::* t" lag 
! '.-ise any $ array 



.. 1st. char, ok 



..'not right srrB.^ 



now 2nd. char. 
>=$&'© it $ array 
y>i=ri*iht 

name t las to x 
t las to change del int. 
unless=.. use [tab] 
de 1 i m i ter entered 
standard char. 

,' see if fie lds>0 

;flag set? 

..' yes 

..'no., set fields 

.■'offset to next .array 
; lo 
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7CE3- 


13 




7CEE- 


65 


15 


7CEH- 




IS 


7CEF- 


C8 




7CC0- 


El 


15 


7CC2- 


65 


16 


7CC4- 


35 


13 


7CC6- 


35 


2F 


7CCS- 


C5 


13 


7CC3- 


F@ 


02 


7CCC- 


B8 


0E 


7CCE- 


fl5 


2E 


7CD0- 


C5 


13 


7CH2- 


F0 


02 


7CD4- 


BO 


06 


7CD6- 


E0 


02 


7CB8- 


E0 


11 


7CD3- 


38 


17 


7CBC- 


E@ 


02 


7CBE- 


E6 


0E 


7CE0- 


35 


13 


7CE2- 


85 


15 


7CE4- 


fl5 


13 


7CE6- 


35 


16 


7CES- 


IS 




7CE9- 


30 


9F 


7CEE- 


H0 


04 


7CED- 


El 


15 


7CEF- 


C3 


01 


7CF1- 


F0 


03 


7CF3- 


20 


30 


7CF6- 


32 


S3 


7CFS- 


4C 


57 


7CFE- 


fl0 


06 


7CFD- 


El 


15 


7CFF- 




12 


7E01- 


Q O 




7D02- 


El 


15 


7D04- 


35 


13 


7B06- 


IS 




7E07- 


63 




?B03- 


35 


0E 


71103- 


35 


12 


7D0C- 


63 




7E0II- 


IS 




7E0E- 


63 


01 


7IH0- 


35 


nil 


7E12- 


35 


0E 


7B14- 


63 


00 


7E16- 


35 


0E 


7Iii3- 


35 


15 


7D13- 


IS 




7D1E- 


63 


04 


7nin- 


35 


.-' ." 


7B1F- 


35 


16 


7E21- 


69 


00 


7E23- 


-icr 


24 



'D 



1010 

I02y 

1 030 
1040 
1 050 
1 060 
1070 
1030 
1 030 
1100 
1110 

1120 ehfd 
1130 
1140 
1150 

1160 efnd 
1170 
1130 
1130 nare 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270fara 

1230 

1230 

1 300 

1310 
1320 
1 330 
1340 
1350 
1363 
1370 
1 330 
1330 

1 400 

1410 
1420 
1430 
1440 
1450 
1460 
1470 
1430 
1433 

1500 

1513 
1523 
1 533 
1540 
1 550 
1560 
1570 
1530 



OOPS 



fsiz 



c lo 

ado *rl + l 
sta *r2+l 
iny 

Ida (rl+i)j-y 
ado #rl+2 
sta *r2+2 
Ida *eara+l 
cm* #r-2+ 
foe** ehfd 
bos nar-e 
Ida We-Bi--3. 
cim *r2+l 
be*i efnd 
bos nare 
orx #2 
bs £ara 
boo oop'S 
oiox #2 
bos fara 
Ida *r2+l 
sf-3. *rl + l 
Ida *r2+2 
sta *rl+2 
olo 

boo okna 
Idy #4 
Ida O-l + 1 .':■.. y 
onto #1 
be* fsiz 
■jsr sK-ii 
Idx tiarer 
•jm* errr-- 
Idy #6 

Ida (rl+l.':',y 
sta #n 
day 

Ida Crl+l>,y 
sta ^n+1 
olo 
ror a 
sta #1+1 
Ida #n 
ror a 
o lo 
ado #1 
sta #1 
Ida #1+1 
ado #3 
sta #1+1 
Ida *rl+l 
o lo 
ado #4 
sta *>...' 1 
Ida *rl+2 
ado #0 
sta. 



•add to current's start 
..'to next array K>tr. 

;hi 



..' last array? 
.. n e x t -ar • s t • 
; maybe 
.."no 
..' check lo 

..' end found 
..' not end 
..' found array? 
,' yes 
..' no 

..found it? 
..' yes 
..' no.. next=ourrent 



..' J UMJO 

1 d i mens i on a. 1 lowed 



.; ok 

.; restore basic 

..'print error & abort 
..' # of e lements 
; lo 



,'hi 

..'find mid element 

.•make X ■& +1 



..' ourrent=e lement#0-3 



*','! + ! 
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1 530 


;k=n 






7B25- 


R5 12 


1 600 




Ida. *n 




7D27- 


35 BE 


1610 




sta. *k 




7B23- 


R5 13 


1620 




Ida. *n+l 




7E2B- 


35 0C 


1630 




sta *k+l 








1640 


;if lOl 


*iC<tO 1= 1 — 1 




7B2B- 


R5 0E 


1650 


i»ai n 


Ida. #1+1 




7B2F- 


F0 03 


1660 




be* ndec 




7B31- 


4C E2 7D 


1670 


dec2 


Jimo dec 1 




7B34- 


R5 0E 


1680 


ndeo 


Ida *I 




7B36- 


C3 01 


1 630 




arm #1 




7B38- 


D@ F7 


1 700 

1710 


;rl= : -< 


brie dec2 




7D3R- 


fi5 0E 


1720 




Ida *k 




7B3C- 


85 IE 


1730 




sta. *r-3+l 




7B3E- 


R5 0C 


1 740 




Ida *k+l 




7B40- 


OCT * ~- 

OZl i v 


1750 




sta *r3+2 




7B42- 


20 B3 7F 


1 760 

■J ??t!3 


.' 1 - 


■jsr con 1 ,.' 




7B45- 


fiS 00 


i i TV 

1780 




Ida #0 




7B47- 


El 15 


1730 




Ida Crl+1). 


i y 


7B43- 


85 20 


1800 




s-tz *s 




7B4E- 


C8 


1810 




i ny 




7B4C- 


El 15 


1820 




Ida (rl+l>. 


. y 


7D4E- 


85 21 


1330 




sta. *s+l 




7B50- 


C8 


1340 




i ny 




7B51- 


El 15 


1350 




Ida. Crl+1>. 


, y 


7B53- 


Q c? •" *~ 


I860 
1370 


;y(k)=y(i 


sta *s+2 
5 




7D55- 


f=!5 23 


1380 




i .-j -, it, 1 1 




7B57- 


18 


1330 




c tc 




7D5S- 


63 03 


1 300 




ado #*03 




7D5R- 


85 18 


1310 




sta. *>-2+l 




7B5C- 


H5 24 


1320 




foffl *...-! + 1 




7D5E- 


63 00 


1330 




S.CiC #$00 




7D6y- 


85 19 


1340 




sta. *r2+2 




7E62- 


El IS 


1350 




Ida (r2+l> 


., y 


7DS4- 


31 15 


1 360 




sta (rl+i) 


.■ y 


7D66- 


Q O 


1370 




day 




7B67- 


Bl 13 


1330 




Ida Cr2+13 


.. y 


7B69- 


91 15 


1330 




sta <rl+±) 


.. y 


7B6B- 


rlr! 


2000 




day 




7B6C- 


El 18 


2010 




Ida Cr2+I) 


.. y 


7B6E- 


31 15 


2020 
2030 


;k=k-l 


sta <rl+l> 


.. y 


7D7@- 




2040 




S-c"0 




7D71- 


R5 0E 


2050 




Ida *k 




7B73- 


E3 01 


2060 




sac #l 




7B75- 


35 0E 


2070 




sta *k 




7D77- 


fl5 0C 


2080 




Ida *k+l 




7B73- 


E3 00 


2030 




Sfc'O #0 




7B7E- 


85 0C 


2100 




sta *k+l 








2110 


;if kO-i 


•3D to ..ie*Ll 




7B7B- 


C3 00 


2120 




GliiP #0 




7E7F- 


E0 57 


2130 




brss -ja^tl 




7BS1- 


R5 0E 


2140 




Ida. .*k 




7D83- 


D0 53 


2150 
2160 


;rl = i 


brie j act ! 





■net k 

;ala. # to KJ-fcr. addr 
;rCi) to s 



r(2>=v'l+3 



Cr<l>>= s <r<2>) 



..subtract with borrow 
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71*35- 


R5 


07 


2170 




Ida *i 


7B37- 


--' 


IE 


2130 




sta *r-3+l 


71)39- 


R5 


OS 


2190 




Ida #i + l 


7BSB- 




IC 


2200 




sta. *r3+2 


7DSD- 


20 


E3 7F 


2220 


;vCi)=s 


jgr con 1 ,.' 


7B9&- 


R5 


20 


2233 




Ida *s 


71)92- 


m 


00 


2240 




tdy #0 


71:94- 


91 


15 


2250 




sta CH+i).-y 


7B96- 


C8 




2260 




i ny 


7D97- 


R5 


21 


2270 




Ida #s+l 


7B99- 


91 


15 


2230 




sta <rl + l>.. y 


7B9B- 


CS 




2230 




l ny 


7B9C- 


R5 




2300 




Ida *s+2 


7B9E- 


91 


15 


2310 




sta G-i + l).. y 








2320 


.; exchange 


z . p . s/r 


7BR0- 


R2 


24 


2330 


sp=j 


Idx #locs 


7BR2- 


ED 


BE 7F 


2340 


s Iop 


Ida cp*i.. x 


7BR5- 


43 




2350 




Pflfi 


7ER6- 


E5 


00 


2360 




Ida *0,x 


7BflS- 


9D 


EE 7F 


2370 




sta cp*i.. x 


7BRB- 


63 




2330 




o la 


7ERC- 


95 


00 


2390 




sta *0,x 


7PRE- 


Cfl 




2400 




dex 


7ERF- 


10 


Fl 


2410 




fop I s lop 


7EB1- 


60 




2420 
2430 


; 1=1-1 


rts 


7EE2- 


■J' C* 




2440 


dec i 


s§c 


7DE3- 


R5 


0E 


2450 




Ida *l 


7EE5- 


E9 


01 


2460 




stoc #1 


7BE7- 




0E 


2470 




sta #1 


7EE9- 


R5 


0E 


2430 




Ida #1+1 


7DEE- 


E9 


00 


2490 




sbc #0 


7EEB- 


0*J 


0E 


2500 
2510 


,rl=l 


sta #1+1 


7EEF- 




ic- 


2520 




sta *r3+2 


7EC1- 


R5 


on 


2530 




Ida #1 


7DC3- 


35 


IE 


2540 




sta *r3+l 


7BC5- 


20 


E3 7F 


2550 
2560 


.■' £='•,' '■. 1 ) 


•jsr con'-, 1 


7ncs- 


H0 


00 


2570 




ldy #0 


7BCP- 


El 


15 


2530 




Ida (rl + 1.'.'.. y 


7BCC- 


35 


20 


2530 




sta *s 


7BCE- 


CS 




2600 




my 


7DCF- 


El 


15 


2610 




Ida (rl + 1 ) .■ y 


7JTD1- 




21 


2620 




sta. *s+l 


7ED3- 


CS 




2630 




i ny 


7BB4- 


El 


15 


2640 




Ida O-1 + D..y 


7BB6- 


Qcr 


i.'k' 


2650 
2€6@ 


.' S= I 


sta *s+2 


7BB8- 


R5 


on 


2670 


jecil 


Ida #1 


7BBFI- 


R*S 


03 


2630 




sta #d 


7BEC- 


R5 


0E 


2690 




Ida #1+1 


7BBE- 


OCT 


OR 


2700 
2710 


.: i =,i 


sta #J+1 


7HE0- 


R5 


09 


2720 


i eoj 


Ida #J 


7BE2- 


-.cr 
O --' 


07 


2730 




sta *i 


7HE4- 


R5 


0R 


2740 




Ida #j+l 



converted i to r<l.j 



■ s to CKIX) 



.■'t'lip z.p. locations 



..' $7+' max 

..' end or return 



;-i 



;conv. 1 to r<l> 



; <.r<il )) to s 
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7DE6- 85 08 2750 s+a. *i + l 

2760 ;j=J+J 

7DE8- 18 2770 do 

7DE3- 26 09 2780 rol *J ; double J 

7IO- 26 0H 2730 rol *,i + l 

2800 ; compare J & k 

7DEn- fl5 0fi 2810 Ida #j+l ,hi first 

7HEF- C5 0C 2820 cmp *k+l 

7DF1- F0 05 2830 b©« he«i 

7BF3- 90 0B 2840 boo d<k 

7BF5- 4C 90 7E 2850 toj> imp J>k 

7DP@- h5 09 2860 he<* Ida *- 1 ' ; it' hi = .. then ok. lo 

FDFfl- C5 01 2870 omxs *k 

7DFC- 90 04 2880 boo -Kk 

7BFE- F0 5E 2390 be*L Jeqfc 

7E00- B0 F3 2908 bos too> 

2910 ;if -i-Ck then rl=j 

7E02- R5 09 2920 d<k Ida *J ■ J to r<l> 

7E04- 85 IB 2930 sta +V-3+1 

7E06- R5 ©fl 2940 Ida *J+1 

7E08- 35 1C 2950 sta *r3+2 

7E0H- 20 B3 7F 2963 -isr oonv 

2970 i r2 =i v'CJ ) 

7E0B- R@ 00 2933 ldy #0 iir(D) to r<2> 

7E0F- Bl 15 2990 Ida O-i+i > , y 

7E11- 85 17 3003 Sta *r-2 

7E13- C8 3010 iny 

7E14- El 15 3020 Ida- C'rl + 1 ) , y 

7E16- 85 18 3030 sta *r2+l 

7E1S- C8 3040 irry 

7E13- El 15 3050 Ida Oi + l>, y 

7E1B- 35 19 3060 sta *r2+2 

3070 ,"rl=',":'j + l> 

7E1D- IS 3380 o lo 

7E1E- R5 15 3090 Ida *rl+l 

7E20- €S 03 3100 ado #3 ..' 3 by. betw. vtrs. 

7E22- 85 15 3110 sta *rl + l ;up <.r<l>> by 1 ele. 

7E24- H5 16 3120 Ida *rl+2 

7E26- 63 00 3130 ado #0 

7E2S- 35 16 3140 sta *rl+2 

3150 ; compare v<j+i) & yW) 

7E2fi- H0 02 3160 ldy #2 ; copy to r(3> & r<4) 

7E2C- El 15 3170 Ida (rl+i>,y ;v(j+l) 

7E2E- 85 1C 3130 sta *r3+2 

7E30- 38 3190 dey 

7E: r .'l- El 15 3200 Ida (rl + l > .• y 

7E33- 35 IE 3210 sta *r3+l 

7E35- 38 3220 dey 

7E36-E1 15 3233 Ida (rl+l>,y 

7E38- 85 lfl 3243 sta *r3 

7E3H- H5 13 3253 Ida *r2+2 ;v<J) 

7E3C- 35 IF 3263 sta *r4+2 

7E3E- A3 18 3273 Ida *r2+i 

7E40- 85 IE 3280 sta *r4+l 

7E42- R5 17 3233 Ida *r-2 

7E44- 35 ID 3388 sta *r4 

7E46- 20 DF 7E 3313 Jsr ciapr > compare actual $ data 
3323 .'it' '■> Cj ) y = '-.-' ( 3 + 1 3 Soto je-ii-:: 



April, 1980 MICRO — The 6502 Journal 



23:51 



7E43- 


fl5 


14 


3330 


Ida 


#rl 


7E4B- 


CS 


17 


3340 


CJBP 


*r2 


7E4H- 


36 


0F 


3350 


boo 


d e«nk 


7E4F- 


F0 


0D 


3360 

3370 ;j=j+l 


be«t 


je*tk 


7E51- 


13 




3330 


o Ic 




7E52- 


R5 


09 


3390 


Ida 


#J 


7E54- 


69 


01 


3400 


ado 


#i 


7E56- 


r-.r 
D •-' 


09 


3410 


S±3. 


*j 


7E5S- 


R5 


0fl 


3420 


Ida 


*J+1 


7E5R- 


£9 


00 


3430 


ado 


#0 


7E5C- 


35 


0fl 


3440 

3450 ;rl=j 


s+a 


*j+l 


7E5E- 


R5 


09 


3460 Jeoik 


Ida 


#j 


7E60- 


35 


IB 


3470 


sta 


*T3+1 


7E62- 


RS 


0R 


3480 


Ida 


#j+l 


7E64- 


QCJ 


1C 


3490 


s+a 


*r-3+2 


7E66- 


28 


B3 7F 


3500 


j'sr 


OOr'iV 








3510 :■ com-' are '-, 


>;j> i 


5 


7E63- 


R0 


02 


3520 


Ida 


#2 


7E6B- 


El 


15 


3530 


Ida 


G-l + 1), 


7E6D- 




1C 


3540 


s+a 


*r-3+2 


7E6F- 


Ou 




3550 


ctey 




7E70- 


Bl 


15 


3563 


Ida 


(rl+l>. 


7E72- 


85 


IB 


3573 


sta 


*--3+l 


7E74- 


Q© 




3530 


dey 




7E75- 


El 


15 


3590 


Ida 


(rl+1). 


7E77- 


C'-_' 


1R 


3600 


sta 


*r-3 


7E73- 


R5 


cicL 


36 1 8 


Ida 


*s+2 


7E7E- 


35 


IF 


3623 


s+a 


*r4+2 


7h7B — 


R5 


21 


3633 


Ida 


*s+l 


7E7F- 


i~cr 


IE 


3640 


sta 


*T4+1 


7ES1- 


fl5 


20 


3650 


Ida 


*S 


7ES3- 


85 


in 


3660 


sta 


*r4 


7ES5- 


20 


W 7E 


3670 


•JS,""" 


cnto>r 








3680 ; if sOX J> 


30*0 


7ESS- 


R5 


14 


3690 


Ida 


*rl 


7E3R- 


C5 


17 


3700 


GfflP 


*r2 


7E3C- 


F0 


02 


3710 


be* 


jyu 


7ESE- 


E0 


IE 


3720 

3730 ;.-l = i 


bos 


s^CmJ 


7E99- 


h5 


07 


3740 j>k 


Ida 


#i 


7E92- 


35 


IB 


3750 


sta 


*>-3+l 


7E94- 


R5 




376S 


Ida 


*i + l 


7196- 




1C 


3770 


sta 


*r-3+8 


7E38- 


20 


£*w i* r 


3788 

3790 ;u<i>=s 


JSf" 


COflV 


7E9B- 


R0 


00 


3880 


Idy 


#0 


7E9B- 


R5 


£w 


38 1 8 


Ida 


*s 


7E9F- 


91 


15 


3328 


L - 

g. I.. .W. 


Crl+i>. 


7ER1- 


C8 




3833 


i ny 




7ER2- 


R5 


'"'1 




Ida 


*s+l 


7ER4- 


31 


1 ^ 


3858 


i:" E-S 


(f-l + 1.>, 


7ER6- 


|_. i~i 




3368 


1 "Tri 




7ER7- 


R5 


~i~i 


--' O .*"" W 


Ida 


*s+2 


7ER9- 


91 


15 


3330 


sta 


< r 1 + 1 ) . 


i'cnB~ 


4C 


2Ii 7B 


3338 


J RiP 


iTiai n 



; deciding char. 

;r(2))=r(l) 

,+1 



; ,i =ed k 

;cony. J to r(l > 



Cr(l>> =ed 'v'(vi> 
copy for s/r 



;s 



I compare $s 

..' resu Its here 
;r(3>'s in r(2) 
.- i f = 
; it r< 1 ;'>r(2) 

.; conv . i to r(l ) 



to trci j j 



.•'to top of main loop 
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7ERE- 


ft5 


87 


3910 


•— <'t.,i.1 


Ida *i 


7EB8- 


■-' 


IE 


3920 




sta *r-3-i-l 


7EE2- 


R5 


08 


3330 




Ida *: + ! 


7EE4- 


35 


1C 


3940 




sta *r-3+2 


7EB6- 


20 


E3 7F 


3958 




■l&r cony 


7EB9- 


R5 


15 


3360 




Ida *■■-■! + i 


7EBE- 


85 


18 


3970 




sta *r2+l 


7EBD- 


H5 


16 


3980 




Ida *rl+2 


7EBF- 


85 


19 


3990 

4000 


;rl»j 


sta *r2+2 


7EC1- 


R5 


09 


4010 




Ida *.j 


7EC3- 


85 


IE 


4020 




sta *>-3+l 


7EC5- 


R5 


0fl 


4033 




Ida *j + 1 


7EC7- 


85 


1C 


4040 




sta *r3+2 


7EC9- 


20 


E3 7F 


4050 




jsr con 1 ,.' 








4060 


.•' v (. i '} —'■> £ 


• j ) 


7ECC- 


R0 


00 


4070 




Ida #8 


7ECE- 


Bi 


15 


4030 




Ida Crl+l?,y 


7ED8- 


91 


13 


4090 




sta Cr2+l>tV 


7ED2- 


CB 




4100 




i fVs 


7ED3- 


El 


15 


4110 




Ida CH+l),y 


7ED5- 


91 


18 


4120 




sta ':>2+l>..y 


7ED7- 


C8 




4130 




i ny 


7ED8- 


El 


15 


4140 




Ida <ri+l>,y 


7EDA- 


91 


IS 


4150 




sta. <r2+l>.. y 


7EHC- 


4C 


E9 7D 


4160 




jmr iectj 








4170 


.• om'-T $s 


s/r 


7EDF- 


Ry 


00 


4 1 80 


CffiP-r 


idy #8 


7EE1- 


84 


0F 


4190 




sty *ln 


7EE3- 


R6 


06 


4200 




Idx *f Ids 


7EE5- 


D0 


0E 


4210 




tone notz 


7EE7- 


H5 


ID 


4220 




Ida *>-4 


7EE3- 


i~iC" 


10 


4230 




sta *!nl 


7EEE- 


R5 


lfl 


4240 




Ida *>-3 


7EEE- 




11 


4250 




sta *ln2 


7EEF- 


18 




4260 




o to 


7EF8- 


90 


73 


4270 




boo fsh 


7EF2- 


H5 


04 


4288 


notz 


Ida *dlim 


7EF4- 


ni 


IE 


4230 


cent 


CWK> <r-4+l).. y 


7EF6- 


F0 


03 


4300 




be*i tndd 


f tr t'~ 


C8 




43.10 


cnt3 


i ny 


7EF3- 


C4 


in 


4320 




cry *r4 


7EFE- 


90 


F7 


4330 




boo oont 


7EFE- 


4C 


F3 7C 


4340 




-J ft"!?- OOf-'S 


7F0W- 


84 


0F 


4356 


fndd 


sty *ln 


7F62- 


Cfl 




4368 




.1 - .... 


7F93- 


F0 


02 


4378 




beet sf Id 


7F05- 


E0 


Fl 


4338 




iocs cnt3 


7F07- 






4398 


s-f IcJ 


i ny 


7F03- 


m 


IE 


448fci 




crnr (r"-4+l).. y 


7F0Ff- 


F0 


05 


4418 




beet fnef 


7F0L- 


C4 


IE 


4428 




CPy *r-4 


7F0E- 


90 


F7 


4438 




K'CC Sf Id 


7F10- 


CS 




4448 




iny 


7F11- 


88 




4450 


fnef' 


dey 


7F12- 


98 




4468 




tya 


7F13- 


OO 




4478 




sec 


7F14- 


r~ c 

C.I 


0F 


4488 
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s's-CvCJ.' 1 ■' s 
iconv. i to r-<2> 

move to rC2) 



cony, j to r(l> 



:■ j "' s i nd i r eo t to i '" s 



back to middle 



sort on f'ield#8 

1st. van. in r<3> 
2nd. in rC43 

find shorter $ 
field delimiter 
onir f las to $ char . 
found de lim. 

i end of $'? 

I no 

! on error 

I mark current offset 

sort field 
! count on 
@ sort field 
next ohar. 
tie id beyond sort 
! end of $? 



.•'end or next field 



.■" current-start of 
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7F16- 


35 


10 


7F18- 


Efc" 


0F 


7F1R- 


R5 


0F 


7F1C- 


13 




7F1H- 


65 


IE 


7F1F- 


35 


IE 


7F21- 


fl5 


IF 


7F23- 


€3 


00 


7F25- 


35 


IF 


7F27- 


R0 


00 


7F29- 


34 


0F 


7F2E- 


Fib 


06 


7F2B- 


R5 


04 


7F2F- 


ni 


IE 


7F31- 


FS 


©3 


7F33- 


CS 




7F34- 


C4 


1R 


7F36- 


90 


F7 


7F3S- 


4C 


F3 


7F3E- 


34 


0F 


7F3D- 


Cfl 




7F3E- 


F0 


02 


7F40- 


E0 


Fl 


7F42- 


C8 




7F43- 


HI 


IE 


7F45- 


F0 


05 


7F47- 


C4 


1R 


7F49- 


96 


F7 


7F4E- 


C3 




7F4C- 


S3 




7F4H- 


93 




7F4E- 


38 




7F4F- 


E5 


0F 


7F51- 


35 


11 


7F53- 


EG 


0F 


7F55- 


R5 


0F 


7F57- 


IS 




7F58- 


65 


IE 


7F5R- 


35 


IE 


7F5C- 


R5 


IC 


7F5E- 


€3 


00 


7F60- 


bo 


IC 


7F62- 


fl5 


10 


7F64- 


C5 


11 


7F66- 


F0 


03 


7F63- 


m 


0C 


7F6R- 




0F 


7F6C- 


H2 


01 


7F6E- 


no 


0C 


7F70- 


85 


0F 


7F72- 


fl2 


00 


7F74- 


F0 


06 


7F76- 


fl5 


11 


7F73- 


-icr 


0F 


7F7R- 


fi2 


02 



?c 



7F7C- C3 00 



4490 




sta 


*Ini 


4500 




i no 


* In 


4510 




Ida 


* In 


4520 




o lo 




4533 




ado 


*r-4+l 


4540 




sta 


*r-4+l 


4550 




Ida 


*r4+2 


4560 




ado 


#*00 


4570 




sta 


*r4+2 


4580 




Ida 


#0 


4590 




sty 


*ln 


4600 




Idx 


*f Ids 


4610 




Ida *dlim 


4620 


cnt2 


Ofl'lP' 


':>3+l>, y 


4630 




be r -i 


tnd2 


4640 


cnt4 


i na 




4650 




OK*a 


*r3 


4660 




boo 


or.t2 


4670 




j rii* 


OOPS 


4680 


fnd2 


sty 


• In 


4690 




dex 




4700 




beci 


sfd2 


4710 




bos 


ont4 


4720 


srfd2 


i na 




4730 




GIBP 


03+1).. y 


4740 




be'-'t 


fne2 


4750 




cpy 


*r3 


4768 




boo 


sfd2 


4770 




i ny 




4730 


fne2 


cfea 




4790 




taa 




4300 




Sec 




4310 




she 


* In 


4320 




sta 


* In2 


4330 




i no 


* In 


4340 




Ida 


* In 


4350 
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Presenting the Other Side of (he Apple II* 



ISAM-DS An integrated set of routines for the creation and manipulation of 
indexed files. Retrieve records sequentially by key value or partial key 
value. Files never have to be reorganized. 
Requires: Disk, Applesoft (32K ROM or48K RAM) 
$50 

PBASIC-DS A sophisticated preprocessor for structured BASIC Gain the power 
of PASCAL-like logic structures at a fraction of the cost. Use all 
regular BASIC statements plus 14 commands and 9 new statemen- 
ts/structures (WHILE, UNTIL, CASE, etc.) Works with INTEGER or 
APPLESOFT programs. 

Requires: Disk, Applesoft (32K ROM or48K RAMI 
$35 

UTIL-DS An Applesoft utility package that includes improved error interrupt 

handling (return to the statement following the one in error), a routine 
thai selectively clears array variables (for reDIM or chaining! . an inter- 
face routine that provides a 'GOSUB' facility from machine language 
to Applesoft and an advanced formatting routine for printing numeric 
values. Works with negative values; inserts commas in value, otc. 
Also contains a loader to put the routines into RAM with your program. 
Requires: Disk, Applesoft (ROM of RAM) 
$35 

(Texas residents add 5% tax) 

Decision Systems 

P.O. Box 13006 
Denton, TX 76203 

"Apple II is a registered trademark of the Apple Computer Co. 
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Progressive 
Computer 
Software 

405 Corbin Road 
York, PA 17403 



PRESENTS 

the 

MACHINE LANGUAGE 

EXTERMINATOR 

Get rid of those bugs the way the experts 
do. Our TEMA program allows you to 
easily locate errors in any machine 
language program. 

ASCII or hex strings can be located, 
registers and memory locations 
displayed, plusmany other features that 
are invaluable for debugging. 
Available now on cassette or disk. 48K 
Apple required. 

Cassette— $19.95 Disk— $24.95 



APPLE ONLY 

Also Available 

One-Arm Bandit (32K) 
Card Shark (INT) 
High Roller (Applesoft) 
Hi-Res Sub Game (32K) 
Adult Games Pack 
Trend Line Analysis 

(48K, Applesoft & ROM) 



Cassette 

9.95 
7.95 
7.95 
14.95 
7.95 

9.95 



Disk 

14.95 
9.95 
9.95 

19.95 
9.95 

14.95 



CUSTOM PROGRAMMING 

We specialize in custom software. Modifica- 
tions to existing programs or completely 
specialized to suit your needs. Write for details. 



rnrr I U P ,0 $170. in merchandise 
rnbb I with purchase of PET-CBM item ! ! ! 

FREEMERCH 



PET 16K Large Keyboard $ 995 5130 
PET 32K Large Keyboard $1295 $170 
PET8K Urge Keyboard (New) $ 795 $100 
PET 2040 Dual Disk (343K) $1295 $170 
PET 2023 Printer (pres feed) $ 695 $ 70 
PET 2022 Printer (trac feed) $ 795 $100 

KIM-1 $1 59 (AM J30 tor Power Supply) SYM-1 $ 

AXIOM EX-801 Printer-PET $ 

2114 L 450 ns 5.35 24/4.95 1 

2716 EPR0M (5 Volt) 

6550 RAM (for 8K Pet) 

PET 4 Voice Music System (KL-4M) 

All Books and Software 1 

Leedex Video 100 12" Monitor 




209.00 

477.00 

00/4.45 

29.00 

12.70 

34.50 

5% OFF 

119.00 



ATARI — INTRODUCTORY SPECIAL 

ATARI 400, Atari 800, and all Atari Modules 20% OFF. 



Heath WH-19 Terminal (fact, asm.) 770.00 

Programmers Toolkit - PET ROM Utilities 44.90 

PET Word Processor - Machine Language 24.00 



3M "Scotch" 8" Disks 
3M "Scotch" 5" Disks 
Verbatim 5" Disks . . 
Disk Storage Pages . . 



. . 10/31.00 

vV, 10/31.50 

J*.. 10/26.50 

.... 10/ 3.95 



Cassettes (all tapes guaranteed) Premium quality, high output low 
noise in 5 screw housing with labels: AGFA PE 61 1 
C-10 10/5.95 50/25.00 100/48.00 

C-30 10/7.00 50/30.00 100/57 00 

Add S 1 per order lor UPS shipping. 
Ask for 6502. TRS-80. and S-1 00 Product List. 



An p ■ 115 E. Stump Road 

D UOmpUierS Montgomeryville. PA 18936 
(215) 699-8386 



Southeastern Software 



DATA CAPTURE 3.0 

Is DATA CAPTURE just another smart terminal program for your Apple II® or 
Apple II Plus®? 

NO. It is a GENIUS TERMINAL PROGRAM and is designed to be used with the 
Micromodem II®. 

Tired of watching data and programs scroll off the screen forever? Then DATA 
CAPTURE is the program for you. 

• ANYTHING that appears on the screen of your Apple II can be captured. 
Any program or data. 

• You can then save what you have captured to disk, dump it to your printer 
or even do simple editing with DATA CAPTURE. 

• You can use DATA CAPTURE to compose text offline for later transmis- 
sion to another computer. Think of the timeshare charges this will save you. 

• Use DATA CAPTURE with the Dan Paymar Lower Case Adapter and you 
can enter lower case from the keyboard for transmission to another computer 
or capture both upper and lower case. 

• A program is also included to convert your programs to text files for 
transmission using DATA CAPTURE. 

• You receive two versions of the program. One is for upper case only and 
one for both upper and lower case use with the above adapter. 

DATA CAPTURE will save you money if you are using a timesharing system 
because you can compose messages offline for later transmission. You can also 
quickly capture data for later reading, printing or editing. Requires DISK II®, 
APPLESOFT II®. 

Price $29.95 

If your local dealer does not have DATA CAPTURE then order directly. We ship 
DATA CAPTURE within 3 working days of receipt of order and welcome your 
personal check. We also accept Visa and Master Charge. Add $49.95 if you would 
also like to order the Dan Paymar Lower Case Adapter at the same time. 

Ask for a catalog of our software. 

* Apple II, Apple II Plus, Disk II and APPLESOFT II are trademarks of Apple Computer Company. 

* Micromodem II is a trademark of D.C Hayes Associates, Inc. 

SOUTHEASTERN SOFTWARE 

7270 Culpepper Drive 

New Orleans, LA 701 26 

504/246-8438 504/246-7937 



KIM Scorekeeper 



Always on the lookout for new applications for the basic 
KIM-1, a general purpose, multi-player scorekeeper is 
presented. The techniques can be readily modified for 
use on a SYM-1 or AIM 65, and the scorekeeping function 
can be included as part of larger game programs. 



Joel Swank 
4655 SW 142nd, 186 
Beaverton, OR 97005 



Ever have a problem getting someone 
to keep score for your friendly game of 
Hearts? Well KIM would like to be a 
volunteer. KIM will keep up to nine 
separate scores for you to display and up- 
date from the keyboard. Each player can 
have from to 9999 points, sufficient for 
most card games or other games needing 
a scorekeeper. Bridge fans can drop the 
low order zero from their scores (150 
points for a grand slam??). I must credit 
the idea to a hardware project in October 
Popular Electronics by Joseph Fortuna. 
He used decade counters and 7-segment 
LED drivers to two-digit scores. A 
telephone dial was used to increment to 
counters. I immediately saw a job that 
KIM could do with software. Naturally 
with all the power of KIM available I had 
to improve and expand the idea. 

The KIM SCOREKEEPER uses nine 
2-byte memory registers to save the 
players' scores. Normally one of the 
players' scores is displayed continuously 
in the KIM display. The high order digit of 
the display is the player number, 1 to 9. 
The next digit is blank and the four low 
order digits contain that player's score. 
To display another player's score the PC 
(Player Change) key is pushed and the 
display goes blank. Then a number from 1 
to 9 is pushed to get that player's score in 
the display. After a player is selected, the 
score can be updated. A player's score 
can be increased by entering the number 
to be added to the score and pushing the 
'E' (Enter) key. Up to four digits can be 
entered. During entry of a number, the 
display shows the number being entered 
in the four low order digits with the two 
high order digits blank. Digits are shifted 
through the display as they are entered. If 
more that four digits are entered, the high 
order digits are shifted out and lost as in 
the KIM monitor. 



The player's score can be decreased by 
pushing the 'D' (Decrease) key to set sub- 
tract mode. When the subtract mode is in 
effect, any number entered wil be sub- 
tracted from the player's score when the 
'E' key is pushed. The high order digit of 
the display will show a minus sign when 
the number being entered is to be sub- 
tracted. Subtract mode stays in effect un- 
til the ' + ' key is pushed to reset the pro- 
gram to add mode. The ' + ' and 'D' keys 
are effective anytime except when perfor- 
ming the player change function. If any 
key except to 9, ' + ' or 'D' is entered dur- 
ing the update operation the display 
returns to the current player. The 'C 
(Clear) key may be used to zero the cur- 
rent player's score. 

As shown by the programs, SCORE- 
KEEPER has two main display loops. One 
displays the current player and his score 
while waiting for a command from the 
keyboard. The other displays the number 
being entered while inputting digits from 
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the keyboard. The code is divided into 
subroutines for the sake of modularity 
and readability. The KIM subroutine 
GETKEY is used for communication from 
the keyboard, and the HEX to 7-segment 
conversion table in the KIM ROM is used 
to generate characters. The display is 
driven directly by the subroutine DISSEG. 
DISSEG is more flexible than the KIM 
subroutine SCANDS since it allows in- 
dividual control of each segment of the 
KIM display. Thus any pattern can be 
displayed. DISSEG reads data from 
memory at SEGBUF and dumps it directly 
to the KIM display high order digit first. 
This subroutine could be used in a wide 
variety of games for KIM. 

KIM SCOREKEEPER is an example of 
KIM's ability to replace and improve a 
hardware gadget. There is nothing I like 
more than finding a hardware function 
that KIM can replace with software. 
Someday I will calculate the weight of the 
hardware that my KIM has displaced. 



KIM SCOREKEEPER 
VERSION 1 SEPTEMBER 1979 
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0295: 


0359 


0A 






SHFKEY 


ASLA 






0296: 


035A 


0A 








ASLA 




MOVE KEY TO 


0297: 


035E 


0A 








ASLA 




HI NYBBLE 


029B: 


035C 


0A 








ASLA 






0299: 


035D 


A2 


04 






LDXIM 


S04 


SHIFT 4 BITS 


0300: 


035F 


2A 






SHFLUP 


P.CLA 




FROM ACCUM INTO 


0301: 


0360 


26 


9F 






P.0L 


NUMBUF 


NUMBER BUFFER 


0302: 


0362 


26 


A0 






ROL 


NUMBUF 


+ 01 


0303: 


0364 


CA 








DEX 






0304: 


0365 


C0 


F8 






BNE 


SHFLUP 




0305: 


0367 


60 








HTS 






0306: 


















0307: 


















0308: 


















0309: 

























Symbol 


Table 








ACDUM 


02A6 


CKD 


0299 


CKNUM 


02A1 


CLHCUH 


024F 


CLRLUP 


0204 


CURKEY 


0096 


CURPLA 


0095 


CVTSEG 


02E7 


DISGET 


0306 


DISLUP 


0334 


CISMIN 


0203 


DISNUM 


02CB 


DISSEC 


0329 


CETKEY 


1F6A 


CETLUP 


0216 


INDEX 


0098 


MODE 


094 


NOCLR 


E23B 


NOMNUS 


0231 


NOPC 


0245 


NOPLUS 


0229 


NUMBUF 


09F 


NUMLUP 


02DB 


PADD 


1741 


PLAYER 


0080 


SAD 


1740 


SED 


1742 


SCORER 


0200 


SEGBUF 


0099 


SHFKEY 


0359 


SHFLDP 


035F 


SUBTHK 


02BD 


TABLE 


1FE7 


TEMP 


0097 


UDLOOP 


027B 


UPDATE 


026E 


UPLUP 


0278 


UPPLAY 


0259 


WAIT 


0345 


ZERO 


0000 



April Fools On Us 

We tear that a second class mail bag full of issue 21 
may have been lost by the US Postal Service. If you live in 
the Arkansas, Louisiana, or Georgia area and did not 
receive your copy of MICRO, 21, please let us know. 



The Age of 

Affordable 

Computing 

Has Arrived. 

HAVE 




$12,900 

TheC3-B 

OHIO SCIENTIFIC 

Challenger Series 

World's largest line of microcomputers 

for Personal and Business Use 

There's one for every Budget. 

And it grows with you, too. 

C1P:$349! 

THE 

ALL-IN-ONE 8BEB3 

UniUIC ' l!e eas y ,0 ' use r,omp computer 
nUIYIC does ' -"■ 'ar a lot less! 

financier, wa: 

CALCULATOR, 

TEACHER, 

& 

VIDEO GAME 

MAKER 



cassette 
player 
That's an 
there is toil There's 
nothing to build 
You can create your own personal programs 
Or select from a whole library ol programson 
low -cost 
cassettes. 
Everything from leaching 
anihmetic to spectacular 
- --- -w-ii i video games to balancing your 

A I I Ht checkbook Something tor every 
lAfODI O'C member of your family 

LOWEST PRICE! 



CHALLENGER IP 




'notWvt IViOiDW <nO! incMM0> 



CDfTlP LITER SHOP 



Boston 

590 Comm. Ave. 

(across IromB.U.) 

247-0700 



Cambridge 
288 Norfolk St. 
(nearM.l.T.) 
661-2670 



MDN YOUR BBBLE 11 UA\i\ EEWORM JUST iWE ThE Bit BOYS 



l( you're a businessman who demands ultimate performance from your 
Apple II, then take a look at this outstanding General Ledger Package 
from Small Business Computer Systems (SBCS). 

It features 

• 6 digit account numbers 

• 3t character account name. 

• Ten levels of subtotals — giving you a more detailed income statement and balance sheet. 

• Departmentalizing ... up to nine departments. 

• Flexibility — adaptable to any printer and either cash or accural accounting methods. 

• Cash Journal allows a 33 character transaction description and automatically generates the ap- 
propriate otlsetting entry. 

• You can print the balance sheet and income statement for the current month, current quarter, 
or any of the previous three quarters. This year's or last year's totals are also included on the 
income statement. Or a special report that lists the current account balance for selected ac- 
counts. 

• Higher number of entries from an external source — as many as 1,000 per session. 

• No limit on entries — giving you the opportunity to make your entries as many times or as 
olten as you want. 

• With high speed printer routines and other special leatures of our conversion, processing per- 
formance does not decrease dramatically at the system limits. 

• Look at these examples of times required to update the chart and print the audit trail. 

With 133 item chart of accounts. 700 postings into 70 regular accounts: less than 20 min. 
With 133 item chart of accounts, 1000 postings into 70 regular accounts: less than 30 min. 
With 210 item chart of accounts, 1000 postings into 125 regular accounts: less than 40 min. 

• Coming early this year — capability to archive up to 2,500 postings. The chart of accounts will 
also be archived to maintain the opening balance lor the archive period. 

In the final analysis, your financial statements are what this General Ledg- 
er is all about. And with this General Ledger Package you can format your 
own balance sheet and income statement. As well, department financial 
statements may be formated differently. You have complete freedom to 
place titles and headings where you want them, skip lines or pages be- 
tween accounts and generate subtotals and totals throughout the reports 
— up to ten levels if you need them. 



And coming early in 1980, SBCS will 
present the Accounts Payable/Ac- 
counts Receivable Package you have 
been waiting for. 

Just compare these numbers against 
any package on the market today:* 



E 


inch 


8 inch 




disc 


disc 


Vendors or customers 


700 


1.800 


Payable Transactions 


350 


750 


Payable Invoices 


380 


840 


Receivable Transactions 


600 


1,300 


Receivable Invoices 


600 


1.300 



' These are maximum numbers that you can 
put on a disc if you're using the disc only for 
these respective data files. 

We are an authorized converter for 
Osborne/McGraw-Hill, providing you 
with business packages that will do 
everything the Osborne General 
Ledger will do in addition io many 
features we have added. 

Call or write: 

Small Business Computer Systems 

4140 Greenwood 
Lincoln, Nebraska 68504 
(402) 467-1878 



KIM/SYM/AIM-65-32K EXPANDABLE RAM 

DYNAMIC RAM WITHONBOARDTRANSPARANT REFRESH 
THAT IS COMPATIBLE WITH KIM/ SYM/AIM-65 
AND OTHER 6502 BASED MICROCOMPUTERS. 




ASSEMBLED 
TESTED 



■{. 



WITH 32K RAM Ml 9.00 

WITH 16K RAM J349.00 

WITHOUT RAM CHIPS J279.0O 

HARD TO GET PARTS ONLY (NO RAM CHIPSI . . 1109.00 
BARE BOARD AND MANUAL 149.00 



PLUG COMPATIBLE WITH KIM(SYM/AIM-65 
MAY BE C0NNECTE0 TO PET USING ADAPTOR 
CABLE SS44-E BUS EDGE CONNECTOR 
USES -5V ONLY (SUPPLIED FROM HOST 
COMPUTER BUSI 4 WATTS MAXIMUM. 
BOARD ADDRESSABLE IN 4K BYTE BLOCKS 
WHICH CAN BE INDEPENDENTLY PLACED ON 
4K BYTE BOUNDARIES ANYWHERE IN A 64K 
BYTE ADDRESS SPACE. 
ASSEMBLEO AND TESTED BOARDS ARE 
GUARANTEED FOR ONE YEAR. AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF 
B0AR0 IS RETURNED UNDAMAGED WITHIN 
14 0AYS 

BUS BUFFERED WITH 1 LS TTL L0AD." 
2O0NSEC4116RAMS. 
FULL DOCUMENTATION 



I PET INTERFACE KIT $49.00 

CONNECTS THE ABOVE 32K EXPANDABLE RAM TO A 4K OR 8K PET. 
CONTAINS EXPANSION INTERFACE CABLE. BOARO STANDOFFS. 
POWER SUPPLY MODIFICATION KIT AND COMPLETE INSTRUCTIONS. 



6502. 64K BYTE RAM AND CONTROLLER SET 

MAKE 64K BYTE MEMORY FOR YOUR 6800 OR 
6502 THIS CHIP SET INCLUDES 

• 32M5K4116-3 16KXI. 200 NSEC RAMS 

• 1MC3480 MEMORY CONTROLLER 
. 1 MC3242A MEMORY ADDRESS 

MULTIPLEXER AND COUNTER 
. DATA AN0 APPLICAII0N SHEETS. PARTS 
TESTED AND GUARANTEED 
$295.00 PER SET 



I6KXI DYNAMIC RAW 
THE MK4116-3 IS A 16.384 BIT HIGH SPEED 
NM0S, DYNAMIC RAM THEY ARE EQUIVALENT 
TO THE M0STEK. TEXAS INSTRUMENTS. OR 
MOTOROLA 41 16-3 

• 200 NSEC ACCESS TIME. 375 NSEC CYCLE 
TIME 

. 16 PIN TTL COMPATIBLE 

- BURNED IN AND FULLY TESTE0. 

• PARTS REPLACEMENT GUARANTEED FOR 
ONE YEAR 

M.50 EACH IN QUANTITIES OF 8 



COmPUTER D£VIC£5 



1230 UJ.COUIflS AVE. 

• »-«» w.. — ... r.»». CAL „ BES | DENIS p LEASE AOD 6% SALES TAX 

ORRnCE, CR 92668 mastercharge s visa accepted please 

f«ialf«* *An A ALLOW 14 DAYS FOR CHECKS TOCLEAR BANK 

|7I4J 63 3-72oO phone orders welcome 



ALL ASSEMBLED BOARDS AND MEM- 
ORY CHIPS CARRY A FULL ONE YEAR 
REPLACEMENT WARANTY. 



ACTION, STRATEGY, AND FANTASY- 

for the SERIOUS games player 

and his APPLE II 



Brain Games - 1 demands ingenuity. 

Two players bombard radioactive material with protons 
and electrons until it reaches critical mass and sets up a 
Nuclear Reaction. Dodgem requires you to outmaneuver 
another player to get your pieces across the board first. 
Dueling Digits and Parrot challenges your ability to 
replicate number and letter sequences. Tones lets you 
make music with your Apple (16K) CS-4004 $7.95. Strategy 
Games and Brain Games are on one disk (16K) CS-4503 
$14.95. 

Strategy Games - 1 keeps games players in suspense. 

Vou and your opponent trail around the screen at a 
quickening pace attempting to trap each other in your 
Blockade. A 7 category quiz game will certify you as a 
Genius (or an errant knave!). Beginners will meet their 
master in Checkers. Skunk and UFO complete this classic 
collection (16K) CS-4003$7.95 

Know Yourself through these valid self-tests 

Find out how your life style effects your Life Expectancy 
or explore the effects of Alcohol on your behavior. Sex 
Role helps you to examine your behavior and attitudes in 
light of society's concept of sex roles. Psychotherapy 
compares your feelings, actions, and phobias to the 
population's norms and Computer Literacy tests your 
microcomputer savvy. A fun and instructional package 
(16K) CS-4301 $7.95. Know Yourself and CAI Programs 
are on one disk (16K) CS-4503 for $14.95 





You're in command in Space Games - 1. 

Maneuver the TIE fighters into your blaster sights and 
zap them with your lasers to save the rebel base camp 
from annihilation in Star Wars. Rocket Pilot is an ad- 
vanced real time take off and landing game. High resolu- 
tion graphics, exploding saucers and sound effects add to 
the suspense as you repel the Saucer Invasion. Finally, a 
bonus graphics demonstration, Dynamic Bouncer (16K) 
CS-4001 $7.95. Space Games and Sports Games are on 
one disk (16K) CS-4501 for $14.95 

ACTION 

Sports Gomes - 1 puts you in the Apple World Series 

Take the field in the Great American Computer Game. 

Mix up your pitches to keep the batter off balance. Move 
your fielders to snag the ball before he gets to first. Balls 
and strikes, double plays, force outs, and errors let you 
play with a realistic strategy. Also in the line up— Slalom, 
a championship downhill ski race, Torpedo Alley, and 
Darts (16K) CS-4002 $7.95. Space Games and Sports 
Games are on one disk (16K) CS-4501 for $14.95 

It's easy to order SENSATIONAL SOFTWARE for your Apple II. 

Send payment plus $1.00 shipping and handling in the U.S. ($2.00 foreign) to 
Creative Computing Software, P.O. Box 789-M. Mornstown, N.J. 07960. N.J. residents 
add $1 00 sales tax. Visa. Master Charge and American Express orders may be called in toll 
free to 800-631-8112 (in N.J. 201-540-0445). 



OSI BASIC in ROM 



While the various Microsoft BASICs are easy to use, they 
are difficult to understand due to an intentional lack of 
documentation. To help understand your OSI BASIC, a 
table of the locations of the subroutines to service the 
main commands is presented. The program which 
generated the table is provided as a starting point for you 
to explore your BASIC. 



E.D. Morris, Jr. 
3200 Washington 
Midland, Ml 48640 



A previous article in Micro 18:9 by S.R. 
Murphy gave a peek into OSI BASIC in 
ROM by listing a number of scratch pad 
locations in page zero. In the present arti- 
cle, I wish to delve further into the inner 
workings of BASIC by explaining the 
dispatch table. 

At the bottom of the BASIC ROMs, bet- 
ween $A000 and $A083, is a list of ad- 
dresses known as the dispatch table. 
These are the starting addresses of all 
the machine subroutines needed to carry 
out the BASIC keywords such as END, 
FOR, NEXT etc. The addresses are in hex- 
idecimal in the normal machine format of 
low byte first followed by the high order 
byte. For example, starting at $A000 you 
find the data: 

$A000 39 

$A001 A6 

$A002 55 

SA003 A5 

Thus the first two entries in the 
dispatch table are $A639 and $A555. 
These point to subroutines in the BASIC 
ROMs. 

Now we need to know what each 
subroutine does. Conviently there is 
another table starting at $A084 contain- 
ing a list of all the BASIC keywords. The 
first entries in this table are: 



$A084 


45 


$A085 


4E 


$A086 


C4 


$A087 


46 


$A088 


4F 


SA089 


D2 



is removed from C4 and D2, then it is 
ASCII code for ENDFOR. You can 
demonstrate the list of keywords for 
yourself by running the program: 

10 FOR X = 41092 TO 41315 

20 Y = PEEK (X) 

30 PRINT CHR$ (Y); 

40 NEXT 

If you have the OSI graphics 
character generator, the last letter of 
each word will be a graphics 
character instead of a letter. The 
high bit being set is used to separate 
the entries in the word list. To con- 
vert these to letters and leave a 
space between key words, add the 
following line to the above program: 

25 IF Y > 127 THEN PRINT 
CHR$(Y— 128);:Y = 32 

Now we have two lists, one of ad- 
dresses and one of functions. These can 
be combined to give an address for each 
function. 



END 
FOR 



$A639 
$A555 



Except for the C4 and D2, the data 
looks like ASCII code. If the high order bit 



However things are not quite that sim- 
ple. Unfortunately the two tables are not 
strictly in the same order. Also some of 
the address entries refer to the 
subroutine location and others to the 
location, less one. The address table is 
further complicated in the case of the 
arithmetic operators by a third entry 
which is the precedence value. 

Following is a BASIC program that 
sorts out these quirks and outputs a list 
of BASIC KEYWORDS together with the 
hex address of the machine code 



associated with that keyword. Notice that 
the program does not contain data 
statements, rather PEEK'S directly at 
your BASIC ROM's. The program steps 
through the dispatch table printing out 
each address. The value of Q is added to 
each address and is either 1 or 0. The cor- 
rect keyword is found by PEEKing at D 
until a character is found with the high bit 
set. 

The subroutine at line 500 converts a 
binary word into ASCII digits for printing. 

For those of you who have trouble with 
this program or for those who have a sore 
index finger from typing in that 24K game 
program, I am providing an output listing. 
However I urge you to run it yourself to 
prove all this stuff is really "in there." The 
BASIC program also contains informa- 
tion about the location and structure of 
the two tables. 

Looking at the sample run, the ad- 
dresses for END and FOR found earlier, 
are incorrect by one byte. Users of the 
USR function know that the subroutine 
address must be placed at $000B and 
$0000 The dispatch table associates 
location S000A with the USR function. 
Location $000A contains 4C or JMP 
which completes the three byte instruc- 
tion. 

It is interesting to note that the BASIC 
keyword table is identical to a numerical 
listing of the BASIC tokens(MICRO 15:20). 
The keywords TAB, TO, THEN, and STEP 
are missing from the dispatch table. 
However these commands are never used 
alone but always occur with another 
BASIC keyword (PRINT, FOR, IF and 
FOR-NEXT). The purists will note the 
absence of AND, OR, GREATER, LESS 
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and EQUALS. I must confess, these did 
not fit neatly into my BASIC program. 

If you have ever tried to make sense of 
"that 8K block of data up there at $AOO0," 
it looked like a hopeless task. With the 
dispatch table at hand, you can break it 
down and attack one function at a time. 



Sample Run 


(Program output listing) 


A63A 


END 


A556 


FOR 


AA40 


NEXT 


A70C 


DATA 


A923 


INPUT 


AD01 


DIM 


A94F 


READ 


A7B9 


LET 


A6B9 


GOTO 


A691 


RUN 


A73C 


IF 


A61A 


RESTORE 


A69C 


GOSUB 


A6E6 


RETURN 


A74F 


REM 


A638 


STOP 


A75F 


ON 


A67B 


NULL 


B432 


WAIT 


FFF4 


LOAD 


FFF7 


SAVE 


AFDE 


DEF 


B429 


POKE 


A82F 


PRINT 


A661 


CONT 


A4B5 


LIST 


A68C 


CLEAR 


A461 


NEW 


B7D8 


SGN 


B862 


INT 


B7F5 


ABS 


000A 


USR 


AFAD 


FRE 


AFCE 


POS 


BAAC 


SQR 


BBCO 


RND 


B5BD 


LOG 


BB1B 


EXP 


BBFC 


COS 


BC03 


SIN 


BC4C 


TAN 


BC99 


ATN 


B41E 


PEEK 


B38C 


LEN 


B08C 


STR$ 


B3BD 


VAL 


B39B 


ASC 


B2FC 


CHR$ 


B310 


LEFTS 


B33C 


RIGHTS 


B347 


MIDS 


B46F 


+ 


B458 


— 


B5FE 


* 


B6CD 


/ 


BAB6 


t 



These subroutines are available to use if 
you are into machine code programing. 
Mr. Murphy is wrong: OSI users are not 
disinclined to explore their machines. The 
problem, until now, has been that too lit- 



tle information was available. So let's dig 
into OSI's BASIC and publish a complete 
memory map similar to those already out 
for the PET and APPLE. 



BASIC Program 

10 Q=1:D=41092 

20 FOR C=40960 TO 41060 STEP 2 

25 IF C=41016 THEN Q=0:D=41237 

30 X=PEEK(C+1): GOSUB 500 

40 X=Q+PEEK(C) : GOSUB 500 

50 PRINT" "; 

60 X=PEEK(D) 

70 D=D+1 

80 IF X<128 THEN PRINT CHR$(X) ; 

90 X=X-128 

100 PRINTCHRS(X) 

110 NEXT C 

115 D=41224 

120 FOR C=41062 TO 41074 STEP 3 

130 X=PEEK(C+2) : GOSUB 500 

140 X=1+PEEK(C+1): GOSUB 500 

150 PRINT" " ; 

160 X=PEEK(D) 

170 D=D+1 

180 IF X<128 THEN PRINT CHR$(X) 

190 X=X-128 

200 PRINT CHR$(X) 

210 NEXT C 

220 END 



500 REM PRINT SUB 

510 H=INT(X/16) 

520 L=X-16*H 

530 IF H<10 THEN H=H+48:GOTO 550 

540 H=H+55 

550 IF L<10 THEN L=L+48:GOTO 570 

560 L=L+55 

570 PRINT CHR$(H);CHR$(L); 

580 RETURN 



:GOT060 



:G0TO 160 



- 



Would you like to become a Micro Dealer? 

MICRO is a quality 6502 magazine. Our current dealers 
report that having MICRO available for sales in their stores ac- 
tually helps sell 6502 based systems. 

We require a minimumquantity of only 10 copies per month, 
and we offer a standard trade discount 

Other items available are the Best of MICRO, Volumns 1 and 
2, and All of MICRO. 

If you are interested in becoming a MICRO dealer, please 
write to: 

MICRO 

Box 6502 

Chelmsford, MA 

01824 
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Said the Toolkit to the Word 
Processor: "YouVe in My Space!" 
Said the Word Processor to the 
Toolkit: "Let's Share.. .here's 

Socket 2 Me™!" 



From the original producer of peripherals exclusively for 
PET lovers everywhere . . . the device that allows you to 
select between the BASIC Programmer's Toolkit and the 
Commodore Word Processor II while they occupy the same 
address space. 



<«w*»«:rfifM" «"» t 
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The Socket 2 ME . . . doubles your memory expansion in 
a single socket. It's a 2.5" x 2.75" board that fits neatly 
into the Toolkit/Word Processor socket on the main logic 
board of all new PETs. Then both the Word Processor and 
the Toolkit plug into the Socket 2 ME. 

A miniature slide switch — part of the kit — mounts with 
double-stick tape (supplied) to the front part of the right 
side of the PET base, almost hidden by the overhang of 
the top of the PET cabinet. The slide switch is connected 
to the Socket 2 ME by a special cable (also supplied) . . . 
and you're up and running. 

Up and running; installation took only a minute or so. Flip 
the switch from Toolkit to Word Processor. And back. No 
need to open the PET. 



Complete with the first-rate installation and operating in- 
structions you've come to expect from all Skyles docu- 
mentation. 

YOU HAVE AN ORIGINAL 2001-8 PET? 

No problem. The Socket 2 ME interfaces with the BASIC 
Programmer's Toolkit model TK 160E or TK 160S con- 
nector board, the Word Processor II interfaces with the 
Socket 2 ME, the slide switch is placed on the PET base. 
Then, as long as the PET 2001-8 has at least 8K of mem- 
ory expansion, the system is up and running. 

YOU HAVE A COMPUTHINK DISK AND YOU 
WANT A BASIC PROGRAMMER'S TOOLKIT? 

How would you like to switch between the Computhink 
and the Toolkit with a single SYS command? 

Just add two small jumpers to the Computhink system and 
a short program to the DOS diskette. Plug in the BASIC 
Toolkit TK 80E, enter the SYS command and your system 
is up and running. 

NO ROOM ON THE P£T 2 
COMPUTHINK DISK BOARD? 

All your sockets are booked? Fret not; Skyles comes to the 
rescue. Skyles Electric Works now has a modified EPROM 
board available with sockets for the Toolkit and Compu- 
think ROM chips. Plug in the ROMs, add a jumper (sup- 
plied) to the PET 2 Computhink disk board, plug the new 
EPROM board into the Computhink disk board. Power up 
and enter a short switching program into the DOS disk- 
ette. Switch between the Computhink disk and the Tool- 
kit'with a single SYS command. 



ORDER NOW - with Skyles' 10-day money-back guarantee: 



Socket 2 ME: $$22.50* 

Commodore Word Processor II: $100.00" 

Commodore Word Processor III: $200.00* 



BASIC Programmer's Toolkit 

Model TK 80ED $85.00* 

Model TK160ED $95.00*t 



'Add $2. 50 to each for shipping and handling. 

tNote: If Computhink EPROM board is returned, after purchase of TK 160ED, Skyles will refund $20.00. 

"Socket 2 ME" is the trademark of Skyles Electric Works. 

California residents: please add 6% or 6.5% sales tax as reauired 

VISA, MASTERCHARGE ORDERS CALL (800) 538-3083 (except California residents 
CALIFORNIA ORDERS PLEASE CALL (408) 257-9140 





Skyles Electric Works 



231 E SouthWhisman Road 
Mour\tainView,CA 94041 
(408) 735-7891 



Now You Can Have 

INPUT/OUTPUT 

For Your Apple Computer 



DUAL AXIS JOY- 
STICK AND PUSH- 
BUTTON MOD- 
ULE lor Games. 
Graphics, and 
Experimental Pro- 
gram Input 



MICROSTIK 



EXTRA LONG. HEAVY DUTY 
cables and connectors 



MICROBOX AND MICRO- 
STIK PROVIDE APPLE 
OWNERS WITH THE 
HARDWARE TO EXPLORE 
THE INPUT/OUTPUT CA- 
PABILITIES OF THEIR 
COMPUTERS. 

A SIMPLE COMMAND from 
the Apple keyboard or a Basic 
Program can switch an exter- 
nal device. Connect AC loads, 
such as lamps, motors, relays 
or solenoids directly through 
the MICROBOX's 4 AC OUT- 
LETS. Loads can range from 
to 220V AC and draw up to 200 
Watts each. Solid State 
Switching ISOLATES the load 
from your Apple for complete 
safety. Four LEDs provide a 
visual on/off status of each 
load. 

A Complete Instruction/ 
Tutorial Manual is included 
with the MICROBOX. 




i* 
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MICROBOX 



CONNECTS DIRECTLY 
to the Apple Game 
Socket ACCEPTS 2 
Dual Axis MICROSTIKS 
or 4 Paddles 



ISOLATED SWITCH- 




ING of 4 AC loads or 




relays from a basic 




program 4 LED 




status indicators. 




Toggle Switch input 




(sw3) 





REAL-TIME INPUT 

The MICROSTIK is a sturdy, 
two axis joystick. Metal Cable 
Connectors assure trouble 
free usage over time, and 
enable extension cables to be 
added easily. Use the 
MICROSTIK to add real-time 
input to your game, graphic or 
experimental programs. Each 
MICROSTIK contains a 
PUSHBUTTON for added in- 
put possibilities. 



_ ''x 




INDUSTRIES 



MICROBOX and MICROSTIK sit 
comfortably on, or aside the Apple 
Computer. They have been designed 
to match the Apple in color and 
design. 



ORDER TODAY AND CON- 
NECT YOUR APPLE TO 
THE OUTSIDE WORLD. 

The MICROBOX and MICRO- 
STIK can be purchased at 
most computer stores or can 
be ordered directly by mail or 
through our convenient 24 
hour telephone service. 

TELEPHONE: 
(703)471-4291 

Order the MICROSET and 
receive the MICROBOX, 2 
MICROSTIKS, the Manual 
and Cassette, and SAVE $25. 

MICROBOX $109.95 

MICROSTIK (each) 34.95 

Demo Cassette 9.95 

MICROSET 164.95 

12 ft. Ext. Cables 6.95 

Relay Modules WRITE 

Solenoid Modules WRITE 

Va. residents add 4% sales tax 

MASTER CHARGE, VISA accepted 
NO C.O.D.s 

CJM Industries, Dept. MB 
31 6B Victory Drive 
Herndon Industr Park 
Herndon, Va. 22070 




Dear MICRO magazine, 

My Dad and I have had an APPLE II for about 9 months. 
During this time I have learned of the special joys and 
sorrows that only computer people can appreciate or ex- 
perience. This poem was born out of long hours at the 
keyboard. I hope you like it and feel that it is worth 
publishing. 

Ode to My Disk 

I always see verses praising the Apple 

But who sees the time saved by Disk II, it's ample? 

While Apple sits waiting to digest the data 

That trusty old "breadbox" spins round without- 

breakdown. 

It hasn't been long since I've bought my Disk II 

But I know it's worth it and so do you. 

I tried Panasonics and Hitachis too 
Resetting and loading my Apple I'd do. 

Frustrating it was and my hair I did pull 
So soon I did tire of ERR MEM FULL 
So now my Hitachi sits dusty and wan 
And softly clicks Disk II, no ERR coming on. 

Donna Marie Andert 

Connelly High School 

Anaheim, CA 92801 



Dear Editor, 

Most articles that are submitted to MICRO are claimed 
by their authors to execute correctly. The following pro- 
gram has been extensively de-bugged and is guaranteed 
to run neither on a PET nor on an OSI microcomputer. 

10 FOR X = 1 TO 10 
20 IF X = 5 THEN 40 
30 NEXT X 
40 REM 

100 FOR Y = 1 TO 10 
110 FOR X 5 1 TO 10 
120 NEXTX 
130 NEXT Y 
READY. 

Can you figure out what is wrong here? If not, the answer 
is given in the next column 

E.D. Morris, Jr 
Midland, Ml 48640 



This program was originally part of a 200 line game 
program with a "small bug." Through a bit of detective 
work, I narrowed the bug down to these eight lines. In the 
original game, these lines occurred in widely different 
sections of the program and appeared not to be related. 
When the program is executed, the computer will halt in- 
dicating "NEXT WITHOUT ERROR IN LINE 130". 

This message is most confusing since line 100 clearly 
contains a "FOR Y". The program will run if lines 100 and 
130 are deleted. Something appears to be wrong with the 
"Y" loop. If "X" is made the outer loop and "Y" is the 
nested loop, the program will run without error. 

This is all a wild goose chase! Nothing is wrong with 
the "Y" loop. The first real hint of the cause is that replac- 
ing the variable "X" in lines 110 and 120 with a different 
variable, say "Z", solves the problem. The real culprit is 
line 20 where the program jumps out of a loop before 
finishing it. It is simple to see here in an eight line pro- 
gram, but not so obvious in a large program. The problem 
occurs when a variable from an unclosed loop is used 
again in a nested loop. 

The moral of the story is to close loops whenever 
possible. For example, line 20 could have been: 

20 IF X = 5THEN Z = X : X = 10: GOTO 30 

If you can't close the loop, at least avoid using that 
variable in another loop. 



And here is another poem from a reader, sent to us in 
May, 1979. We hope that he remembered to renew his 
subscription. 

End of Subscription 

There once was a town, Albuquerque, 
Wherein lived a genuine turkey 
Who, on learning his MICRO had died, 
Lost what little was left of his pride. 

Hadn't realized how close was the end. 
Still, he took out his pencil and penn'd 
"Mr. Tripp, won't you give me a chance? 
My check will disprove miscreance." 

Nelson E. Ingersoll 
Albuquerque, NM 87110 



We at MICRO would like to thank Donna, Earl, Nelson 
and all of our readers for their contributions. While all of 
the letters that we get are not as entertaining or as fun as 
these, they all certainly give us some things to think 
about. We welcome reader input and we encourage you 
to write to us with your comments, and suggestions at 
any time. We hope to run the Letterbox column in every 
issue, but it all depends on what we get from you. 

The MICRO Staff 
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Apple-Doc 

By Roger Wagner 

An Aid to the Development 
and Documentation of Applesoft Programs 

This 3 program set is a must to anyone writing or using programs 
in Applesoft! It not only provides valuable info, on each of your 
programs, but allows you to change any element throughout the 
listing almost as easily as you would change a single line!! 

With Apple-Doc you can produce a list ol every variable in your 
program and the lines each is used on, each line called by a GOTO, 
GOSUB, etc., in (act, every occurance of almost anything! 

You can rename variables, change constants and referenced line 
tfs, or do local or global replacement editing on your listing. 

In fact, we guarantee that after purchase, if you don't feel 
APPLE-DOC is one of the most valuable programs in your library 
we will even refund your money! (Upon return of product.) 

Unheard of? Yes! But that's how good APPLE DOC really is! 

That's not all!! Send for free info, or visit your nearest Apple 
dealer. 

Only $24.95 Please specify diskette or tape. 

(Calif, residents add 6% Sales Tax) 

Available from your local computer store or: 

Southwestern Data Systems 
P.O. Box 582-M 
Santee, CA 92071 
(714) 562-3670 

(Dealer inquiries invited) 
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PET Printer Adapter 




CmC's ADA 1400 drives a printer with an RS-232 
interface from the Commodore PET IEEE-488 bus. 
The ADA 1400 is addressable, works with the 
Commodore disk and prints upper and lower case 
ASCII. 

A PET IEEE type port is provided for daisy- 
chaining other devices. 

A cassette tape is included with programs for plot 
routines, data formatting and screen dumps. The 
ADA 1400 sells for $179.00 and includes a PET 
IEEE cable, RS-232 cable, power supply, case, 
instructions and software. 

Order direct or contact your local computer store. 



I 

! 



VIS* AND M/C MCEPTED-SEND ACCOUNT NUMBER. EXPIRATION DATE ANO SIGN OROER. 

ADO 15 PER OROER FOR SHIPPING & HANDLING -FOREIGN ORDERS ADD 10% FOR AIR POSTAGE. 

CONNECTICUT microCOMPUTER, Inc. 

150 POCONO ROAD 
BROOKFIELD, CONNECTICUT 06804 

TEL: (203) 775-9659 TWX: 710-456-0052 




STONEWARE for APPLE II 






For the Serious Business or Home User: 

MICRO MEMO 



And Just for Fun: 

TRANQUILITY BASE 



MICRO MEMO <s che lirst sophisticated "Desk Calendar" program to make 
good use of your computer's power 

* Micro Memo includes one time, weekly, monthly, semi-annual and annual 
reminders. 

* Monthly reminders may be for fixed or "floating" dates lex. 1 st Saturday of 
every month) 

* Each reminder allows choice of one week, 2 week or 1 month advance 
notice— reminds you ahead of time to prepare for meetings, purchase tickets, 
make reservations, etc. 

* Micro Memo includes "shorthand" for fast memo entry, greater capacity. 

* Micro Memo will display or print any day's or week's reminders 

* Micro Memo is a "perpetual" calendar — automatically creates new months 
with all appropriate memos f birthdays, anniversaries, monthly meetings, etc.) as 
past months are dropped— system holds full year's reminders on one disk 

* Micro Memo "knows" most major holidays 

* Supports Mountain Hardware clock (optional! 

* "Bomb Proof" menu driven command and data entry. 

* Requires 48K. disk. RAM or ROM Applesoft 



$39 



95 



IMI 

Microcomputer Software 

P.O. Box 721 8, Berkeley, CA 94707 

1415) 548-3763 
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$2495 



TRANQUILITY BASE is a fast high resolution Lunar Lander game by Bill Budge, creator of 
Apple's "Penny Arcade " TRANOUILIT Y BASE is pist Mte the popular arcade game, including 
multiple moonscapes craft rotation, and zoom in for a close-up view as you approach the 
Lunar surface 

TRANQUILITY BASE requires 32K and disk. 

Available at your favorite computer store ar direct from STONEWARE (add S? 
shipping S handling; Calif, resident, add salaa tex. Visa ft MaetarCharga 

accepted, no COD 'a) 

DEALER INQUIRIES INVITED 
-"•Apple II is a Trademark ol Apple Computer. Inc 



The MICRO Software Catalogue: XIX 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 01824 



Name: 

System: 
Memory: 
Language: 

Hardware: 



Dakin 5 Programm- 
ing Aids II 
Apple II 
48K 

Assembler/Ap- 
plesoft II 

Apple II, 2 Disk It's, 
and Printer 



Description: Set of seven programs: 1) 
Copier- copies absolutely any kind of file 
or program from one diskette to another. 
2) Variable Cross Reference- creates a 
cross-reference for all variable neames 
used in an Applesoft BASIC program, 
showing all line numbers where a given 
variable name is used. 3) Line Cross 
Reference- creates a cross-reference for 
all referenced lines in an Applesoft 
BASIC program, showing where a given 
line is referenced by GOTO, GOSUB. 
THEN, or LIST statements. 4) Patcher- 
allows the user to display any sector of a 
given file or program, and then to update 
any data within that sector. A second op- 
tion enables the user to specify the par- 
ticular sector he wishes to update. 5) 
Screen Printer - permits contents of the 
screen to be sent to the printer at any 
time the keyboard is active. The progrm 
remains in effect until you press RESET 
or reboot the system. 6) Array Editor- a 
simple word processor that allows you to 
create, modify, print and save your own 
text files. 7) Calculator II- a multiplica- 
tion/division subroutine that handles 
numeric string data. Written in Assembler 
code, and using twenty place accuracy, it 
runs much faster thatn an equivalent 
BASIC subroutine. It is also compatible 
with the addition/subtraction subroutine, 
the Calculator, included in the first 
DakinS Programming Aids package 
reviewed in the December 1979 issue of 
The MICRO Software Catalogue XV. 



Author: 

Available: 

Name: 

System: 
Memory: 
Language: 
Hardware: 



bound documenta- 
tion and program 
diskette. 

Dakin5 Corporation 
(developer of The 
Controller for Apple 
Computer, Inc.) 
Local Apple Dealers 

Page Format TTY 

IN/OUT 

Apple II 

300.3FF (256 Bytes) 

Machine 

Game Conn to TTY 



Description: Program to output to and in- 
put from ASK 33 or 35 Teletype. Gives 
multiple kine feeds at end of each page 
and waits for you to tear off roll paper or 
insert new sheet for neat listings. Uses 
game connector. 



Copies: 

Price: 

Includes: 

Author: 
Available: 



Name: 

System: 
Memory: 
Language: 
Hardware 



Copies: 

Price: 

Includes: 



Just released 

$49.95 

Professionally 



Just released 
S2.0Q 

Listing and Instruc- 
tions 
Ken Ellis 
Ken Ellis 
R.D.8 Box 344 
York, PA 17403 

HI-RES GRAPHIC 

CHARTS 

GENERATOR 

APPLE II, APPLE II 

PLUS 

32K without ROM 

card, 16k with card 

APPLESOFT II 

BASIC 

APPLE II, Disk II 

(allows optional 

features) 



Description: This program will allow you 
to generate HI-RES graphic charts, either 
through keyboard or text file input (if us- 
ing disk). T axes will be automatically 



scaled with values. 'X' axes will be mark- 
ed for plotting points. Best of all, once 
graph is automatically created, you can 
add your own titles, comments, or sym- 
bols anywhere on the graph. Both upper 
and lower case characters are provided. 
Over 30 special symbols are included. 
Provisions are also included for multiple 
graph overlays. Disk II users can 
automatically have graphs made from ex- 
isting data already stored. 



Copies: 

Price: 

Includes: 



Author: 
Available: 



Name: 

System: 
Memory: 
Language: 
Hardware: 



Just releases, 42 
copies already sold. 
$19.95 + $1.25 for 
postage. 

Cassette contain- 
ing program, in- 
structions on uni- 
que uses. Please 
specify when your 
order, if you have 
ROM card or not. 
Les Stubbs 
Les Stubbs 
23725 Oakheath PI. 
Harbor City, Ca. 
90710 



General Ledger Ver- 
sion 2.0 
Apple II 
48K 

Applesoft 

Dual Drives, Any 
Printer 



Description: General Ledger Version 2.0 
— This program is a complete double- 
entry accounting system. User defined 
flexibility allowing up to 9 individualized 
departments in all Financial Reports. 10 
levels of subtotals throughout each 
report gives more detailed Financial 
Statements. Using 5" drives, storing the 
entire Chart of Accounts and/or all 
posting approaches minicomputer times 
when verifying account numbers or sor- 
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ting records. High-speed printer routines 
will process 1,000 postings into 70 ac- 
counts in less than 30 minutes. Using 8" 
drives, high-speed sorting routines requir- 
ing no additonal disk work space and fast 
binary searching techniques allow data 
files to be limited only by your available 
disk space. Compatible with any printer 
and printer interface. 



Copies: 



Price: 

Author: 

Available: 



Name: 
System: 

Language: 
Memory: 

Hardware: 



Version 1.0, 200; Ver- 
sion 2.0, Just releas- 
ed. 

$180.00 

David A. McFarling 
Small Business 
Computer Systems 
4140 Greenwood 
Lincoln, NE 68504 



VOCAB 1.1 

APPLE II or APPLE I 

PLUS 

Applesoft 

32K 

APPLE II and DISK I 



Description: A vocabulary builder with 
over 1200 multiple choice questions 
allows the user to select either synonyms 
or antonyms. Intended as study aid for 
college board type exams (e.g., SAT, ACT, 
GRE, LSAT, etc.). Editor is included for ex- 
panding or modifying data lists. Several 
test formats with grading are options. 
Ideal for students with little computer ex- 
perience. 



Price: 

Includes: 

Author 
Available: 



Name: 

System: 

Memory: 

Language: 

Hardware 



$15.00 

User documentation 
and diskette 
Steven M. Sliwa 
Sliwa Enterprises 
257 C Clemwood 
Parkway 
Hampton, VA 23669 

SORT 

PET, APPLE 

32K/16K PET; any 

Apple 

6502 Machine 

Language 

16K/32K PET, any 

APPLE 



Description: SORT is a 6502 machine 
language intelligent sort for commercial 
applications. Requires almost no user 
set-up when default values are used. 
Sorts integer, string and floating point ar- 
rays of more than one dimension with up 
to 20 sub-sorts-on-match (if needed). 



Copies: 
Price: 
Author: 
Available: 



Just released 
depends on end use 
David B. Black 

MATRIX SOFTWARE 

INC. 

1041 N. Main St. 

Ann Arbor, Ml 48104 



Name: Investment Com- 

parison 

System: Apple II or Apple II 

Plus 

Memory: 32K with ROM Ap- 

plesoft, 48K with 
RAM Applesoft 

Language: ROM Applesoft.Can 

be used with RAM 
Applesoft by re- 
locating above 
HGR2 display area 
or not using 
graphics display 
feature. 1024 bytes 
of Machine Code is 
loaded before Main 
program. 

Hardware: Cassette tape. Pro- 

gram supports 
Printer but driver 
subroutine not in- 
cluded. Apple II. 

Description: We are often faced with deci- 
sions such as 'which of two investments 
is best?' This program provides a means 
of comparing them by the use of "Cash 
Discounting." Cash Discounting is a 
technique that is used to take into con- 
sideration the effects of inflation. Often 
we are faced with a decision of 'buying 
now' vs waiting a few years or paying 
cash vs time payments. The effects of in- 
flation are not easy to quantify without 
some form of computer analysis. For 
each of two alternatives, entry include: 

1. Inflation Rate for both 

2. Initial Investment $ 

3. Number of years to salvage point and 
value at that time. 

4. Monthly expenses (or income) 

5. Adjustments on an annual basis for the 
monthly expenses. This provides a means 
whereby you can make expenses track at 
a different rate than inflation. 

Display is in a form of a 'cash Flow' by 
year, and a graphical presentation is also 
provided. The graphics have labels. 



Copies: 

Price: 

Includes: 



Author: 
Available: 



Name: 



System: 
Memory: 
Language: 

Hardware: 



Just released 
$16.95 

Cassette, loading in- 
structions, descrip- 
tion, and example. 
Neil A. Robin 
TECH-DIGIT 
21 Canter Lane 
Sherwood, OR 97140 

The Life Dynamic 
Transformation Ex- 
perience 
Apple II 
48K 

Applesoft and 
Machine Language 
Apple II Plus, Disk II 



Description: Unique! This program is 
designed for all those people who desire 
to experience self-transformation, life- 
awareness, making relationships work, 



and "getting your act together," but do 
NOT desire to pay est or Lifespring or any 
of the other "trips" of the Human Poten- 
tial Movement, $300 or so. Includes game 
playing as a means to a fun way of in- 
creasing awareness. 



Copies: 


Many 


Price: 


$15.95 


Includes: 


(disk) w/instructions 


Author: 


Avant-Garde Crea- 




tions 


Available: 


Avant-Garde Crea- 




tions 




P.O.Box 30161 Dept. 




MC 




Eugene, OR 97403 


Name: 


I CHING 


System: 


Apple II or Apple II 




Plus 


Memory: 


16K 


Language: 


Integer Basic or Ap- 




plesoft (please 




specify) 


Hardware: 


Cassette or disk 



Description: Have your own oracle in your 
home. Consult the I Ching as others have 
through the ages. Includes a tutorial and 
a bibliography, as well as an interpreta- 
tion of the results. 



Copies: 
Price: 

Author: 

Available: 



Just released 
$9.95 on cassette; 
$14.95 on disk 
C.Brandon 
Gresham, Jr. 
Ad Hoc Enterprises 
23 Van Buren Street 
Dayton, OH 45402 



Name: MUSIC 

System: Any 6502 based 

system 
Memory: 1.5K 

Language: Assembly 

Hardware: Terminal or TVT and 

a speaker con- 
nected to one out- 
put port 
Description: Music is an interactive pro- 
gramming language for the creation of 
patterns of sound; "music". It is a com- 
positional tool, not merely a music table 
compiler or piano roll type of program. 
Music's language structure is similar to 
"ROBOT" (see MICRO no. 10, page 15). 
Complex hierarchies of user defined func- 
tions - strings of musical events - which 
can be called like subroutines, allow the 
user to program highly intricate and sur- 
prising compositions. 



Copies: 
Price: 



Includes: 



Author: 
Available: 



Just released 
$10.00 (KIM-1 Hyper- 
tape cassette: $3.00 
extra) 

User manual with 
programming ex- 
amples and a com- 
pletely commented 
source and object 
code listing 
Michael Allen 
Michael Allen 
6025 Kimbark 
Chicago, IL 60637 



JOIN 

RAYGAMCO 

NOW! 




Become a 
member of 

RAYGAMCO «* 
Computer 

Discount Club. AND MQRE 
BIG SAVINGS ON EVERY ITEM! 



SAVE 

20% 




By being a RAYGAMCO Member you receive substantial discounts on every item you 
purchase, including all hardware, software, accessories, even books and paper! You 
will also receive a monthly newsletter with all the latest available for your particular 
computer system, and much, much more — exclusive to RAYGAMCO Members only! 

All the famous brand names, including: 
APPLE Alpha Micro Soroc Lear Siegler 

ATARI Alpha Pro Hazeltine Shugart 

EXIDY/Sorcerer Cromemco Sektor Texas Instruments 
Kim/Commodore Xerox PET 

SAVE 20% AND MORE 



Here's how to join. 

Fill out the information, and mail. That's all there is to it. Nothing to buy. 

I want to be a RAYGAMCO Computer Discount Club Member. Please send my 

RAYGAMCO Membership card to: 



Name 



Address 
City 



. State 



Zip. 



Computer (Brand Name) 

I would like information on (please specify system, part, accessory, book, program, etc.) 



WE HONOR VISA, MASTERCHARGE, BANKAMERICARD. TOLL FREE. EXCEPT CA 

Store Hours: Sat 10-6, Sun 12-4, Tu-Fri 11-8 800-854-6455 



RAYGAM, INC. 



6791 WESTMINSTER AVENUE WESTMINSTER, CA 92683 
TELEX 182274 (714) 891-2587 



Ask for Instant Software at a computer store near you. 



Alabama 

Compulerland ol Huntsville 
3020 University Dr.. Hunlsville 

Arizona 

Ham Shack 

4506-A N 16th SI.. Phoenix 

Millets TV S Radio 

621 East Broadway, Mesa 

California 

Byte Shop 

8038Clairmoni Mesa Blvd.. 

San Diego 

Byte Shop ot Ml. View 

1415 West El Camino Real. Ml. View 

Capital Computer Systems 

3396 El Camino Ave.. Sacramento 

Computers Made Easy 

819 East Ave. Q-9, Palmdale 

Computet World 

6791 Westminster Ave.. Weslminsler 

Compulerland 

16720 S. Hawthorne. Lawndale 

Coast Electronics 

3118 No Main Si.. Morro Bay 

Compulerland 

24001 via Fabricante No 904, 

Mission Viejo 

Hobbi-Konics 

1378 So. Bascom Ave.. San Jose 

Hobby World 

19511 Business Cti. Dr. Unil 6 

Sort h ridge 

Jade Computer Products 

4901 W. Rosecrans. Hawthorne 

Opamp/Technical Books 

1033 N. Sycamore Ave.. Los Angeles 

Radio Shack Dealer 

8250 Mira Mesa Blvd.. San Diego 

Santa Rosa Compute Center 

604 7th St., Santa Rosa 

Silver Spur Elect Comm. 

13552 Central Ave.. Chino 

The Computer Store 

820 Broadway. Santa Monica 

Colorado 

Byte Shop 

3464 S. Acoma St.. Englewood 
Compulerland ol North Denver 
8749 Wadswonh Blvd.. Arvada 

The Computer Store 
2300 Welton St.. Denver 

Connecticut 

Computer Works 

1439 Post Rd E., Liberty Plaza. 

Westport 

D.C. 

The Program Store 

4200 Wisconsin Ave.. N.W., 

Washington. D.C 

Florida 

Adventure International 

200 Bald Cypress Ct.. Longwood 

AMF Electronics 

11146N. 30th St.. Tampa 

Compulerland ol Fi. Lauderdale 
3963 N Federal Hwy, Ft. Lauderdale 

Compulerland ol Jacksonville 
27776 University Blvd W 
Jacksonville 

Curtis Waters Enterprises 
236 Talbot Ave , Melbourne 
Ukatan Compuier Store 
Alrporl Rd.. Deslin 
Williams Radio & TV Inc. 
2062 Liberty St.. Jacksonville 
Georgia 

Computerland ol Atlanta 
2423 Cobb Parkway. Smyrna 

Hawaii 

Computerland of Hawaii 

567 N. Federal Hwy.. Honolulu 

Radio Shack Assoc. Store 

1712 S. King St.. Honolulu 

Illinois 

Compulerland 

4507 North Sterling, Peoria 

Midwest Micro Computers, Inc. 
708 S. Mam St.. Lombard 

Indiana 

Computer Center ol South Bend 
51591 US 31 North, South Bend 



Iowa 

Memory Bank 

4128 Brady St., Davenport 

Louisiana 

Computer Shoppe Inc. 

3225 Danny Park. Suite 222. Melatrie 

Maine 

Radio Shack 

315 Mam Mall Rd.. So. Portland 

Massachusetts 

ComputerCtty 

175 Main Si.. Charlestown 

CompuierCily 

50 Worcester Rd., Framingham 

Computerland ol Boston 
214 Worcester Rd.. Weiiesley 
Computer Packages Unlimited 
244 w. Boylston St., West Boylston 
Lighthouse Computer Software 
14 Fall River Ave.. Rehobaih 
The Compuier Store 
120 Cambridge St., Burlington 
Tufts Radio & Electronics 
206 Mystic Ave., Medtord 

Michigan 

Computer Center 

28251 Ford Rd.. Garden City 

Compulerland ol Grand Rapids 

2927 28th Si. S.E.. Kentwood 

Compulerland ol Rochester 

301 S. Livernois. Rochester 

Compulerland Of Soulhfield 

29673 Northwestern Hwy.. Soulhfield 

Compuier Mart 

560 W. 14 Mile Rd.. Clawson 

Hobby House 

1035 w Territorial Rd, Battle Creek 

Minnesota 

Computerland ot Hopkins 

11319 Hwy F., Hopkins 

Minnesota Software Inc 

5422 Fisher Si.. While Bear Lake 



Mississippi 



Oy* 



i. Inc 



200 E Main St.. West Poini 

Missouri 

Computervan, Inc. 

51 Florissant Oaks Shopping Center 

Florissant 

Consolidated Software 

16501 Greenwald Court. Beiton 

Montana 

Inlermounlain Computer 

529 So 9th St.. Livingston 

Personal Computer 

121 Red Oak Dr.. Cart Junction 

The Computer Store 

1216 16th Si. W. *35. Billings 

Nebraska 

Computerland ol Omaha 
11031 Elm Si.. Omaha 
Midwest Compuier Co Inc. 
8625 I St.. Omaha 
Midwest Compuier Co. inc. 
4442 S 84lh Si. Omaha 
Midwest Compuier Co. inc. 
4403 S. 87th St.. Omaha 

New Hampshire 

Bilsnbytes Computer Center 
568 Pleasant Si.. Concord 

ComputerCity 
1525 S. Willow. Manchester 
Portsmouth Computer Center 
31 Raynes Ave.. Portsmouth 
New Jersey 

Compulerland 

35 Plaza RtC M. W ParaffiuS 

Compuier Mart of NJ 

501 Rte. 27. iselin 

Dave's Electronics 

Pennsville Shopping Or., Pennsvilie 

Lashen Electronics Inc. 
21 Broadway. Denville 
Personal Computing Inc. 
51 Central Sq.. Linwood 
The Compuier Emporium 
Btdg 103, Avenues o* Commerce 
2428 Rte. 38, Cherry Hill 
New Mexico 

Antel Electronics Co. 

232 Wisconsin N.E.. Albuquerque 



New York 

Aristo Craft 

314 Fifth Ave. NYC 

Computer Corner 

200 Hamilton Ave.. White Plains 

Computer Era Corp. 

1570 3rd Ave.. New York 

Computerland of Nassau 

79 Weslbury Ave., Carle Place 

Computer World 

519 Boston Post Rd.. Port Chester 

Comtek Electronics, inc. 

2666 Coney Island Ave.. Brooklyn 

Comtek Electronics. Inc. 
Staten Island Mall 
Store 220A. Staten Island 
Home Compuier Center 
671 Monroe Ave. Rochester 
Key Electronics 
Schenectady 
Mr Computer 

Imp. Plaza. Rte 9. Wappingers Falls 
Softron Systems 

308 Columbia Turnpike. Rensselaer 
The Computer Tree Inc. 
409 Hooper Rd.. Endwell 
Upstate Computer Shop 
629 French Rd.. Campus Plaza 
New Hartiord 
Ohio 

Aitair Business Systems, Inc 
5252 North Dixie Dr., Dayton 
Astro Video Electronics 
504 E. Main St.. Lancaster 
Compulerland 
4579 Greal Northern Blvd.. 
N.OImsiead 
Compulerland 
6429 Busch Blvd.. Columbus 
Computerland 

1288 Som Rd.. Mayfield Heights 
Forbees Microsystems Inc. 
35 N Broad. Fairborn 



Microcomputer Center 
7900 Paragon Rd.. Oayton 
Micro-Mini Computer World 
74 Robinwood, Columbus 
Universal Amateur Radio, Inc. 
1280 Aida Dr . Columbus 

Oklahoma 

Sounds. Etc. 

Hyw. 33. Watonga 

Vern Street Products 

Radio Shack Dealer 

114 W Taft St.. Sapulpa 

Oregon 

Computerland of Portland 

12020 S.W. Main SI. Tigard 

Compuier Pathways Unlimited, Inc. 

2151 DavcorStSE. Salem 

Pennsylvania 

Audio Mart 

518 Fifih Ave.. New Brighton 

Arico Elect. 

302 Wyoming Ave.. Kingston 

Artco Elect 

Back Mountain Shop. Cir 

Shavertown 

Computer workshoppe 

3848 William Penn Hwy. Monroeville 

Computerland ol Harrlsburg 

4644 Carlisle Pike. Mechanicsburg 

Erie Computer Co. 

2127 West 8th St., Erie 

Mighty Byte Compuier Center 

537 Easton Rd.. Hersham 

Personal Compuier Corp. 

24-26 West Lancaster Ave.. Paoli 

Personal Computer Corp. 

Fra2er Mall, Lancaster Ave.. Frazer 

Rhode Island 

Computer City 

165 Angell St.. Providence 



Tennessee 

Computerlab 

671 S. Menden Hall Rd., Memphis 

H & H Electronics Inc. 

509 N. Jackson St., Tuilahoma 

Texas 

Computer Porl 

926 N. Collig. Arlington 

Houston Microcomputer Tech. 

5313 Bissonel, Beiiaire 

K.A. Elect. 

9090 Stemmons Frwy.. Dallas 

Pan American Elect. Inc. 

1117 Conway, Mission 

Utah 

Quality Technology 

470 E. 2nd So., Salt Lake City 

Virginia 

Home Computer Center 

2927 Virginia Beach Blvd. 

Virginia Beach 

Southside Radio Comm. 

135 Pickwick Ave., Colonial Heights 

Washington 

American Mercantile Co. Inc. 
2418 1st Ave. S., Seattle 
Computerland of South King Co. 
1500 S. 336 St.. Suite 12 
Federal Way 
Magnolia Micro Systems 
2912 Thorndyke Ave., Seattle 
Personal Computers 
S 104 Freva, Spokane 
Ye Old Computer Shop 

1301 G Washington, Richland 

Wisconsin 

Byte Shop Of Milwaukee 

6019 West Layton Ave.. Greenfield 

Petted Microsystems 

4265 W. Loomis Rd.. Milwaukee 



If the store nearest you does not stock Instant 
Software, use this order blank to purchase your software directly, or 
call Toll-Free 1-600-258-5473. 



Name 



Address 
City 



. Stale. 



-Zip- 



Q Check □ Money Order □ VISA D AMEX □ Master Charge 

Card No.— . Expiration Date 

Signed Date 



| Order your Instant Software toda 


£] 


Quantity 


Order No. 


Program name 


Unit cost 


Total cost 
























































Shipping and handling 




$1.00 








Total order 





Peterborough, N.H. 03458 



Instant Software Inc. 



Peterborough, New Hampshire 03458 
603-924-7296 



Get a load of this . . . 

Instant Software 

Ask for Instant Software at a computer store near you. 



PET UTILITY I You're working under a 
serious handicap if you can't write programs in 
machine language. The PET Utility I package 
gives you the tools you need: 
•Monitr-The Monitr program lets you write, 
edit, save, and verify any machine language 
and/or BASIC program. Just load and run the 
Monitr program and then load the program you 
want to edit. 

•Programmer's Calculator - This program will 
convert numbers into the binary, octal, dec- 
imal, and hexadecimal systems and function 
as a floating point calculator. It will also 
display all four numbering systems simulta- 
neously and allow you to handle large num- 
bers limited only by the size of your screen. 
For the 8K PET. Order No. 0105P. $7.95. 





SPACE WARS You must protect your planet 
against a wide variety of alien attacks. In- 
cluded are: 

•Space War — One or two players can pilot 
their saucers and duel with laser beams or 
shoot stars. 

•Star Ship Attack -Your mission is to pro- 
tect the food station satellites from destruc- 
tion by the enemy star ship. You must cap- 
ture, destroy, or drive off the attacking ship. 
•Battlefield -Guess the location of the four 
enemy divisions and destroy them before 
your forces are wiped out. 
Engaging in battle requires the Apple 8K and 
Integer BASIC. Order No. 0096A $7.95. 



ACCOUNTING ASSISTANT This package 
will help any businessman solve many of 
those day-to-day financial problems. Includ- 
ed are: 

•Loan Amortization Schedule — This program 
will give you a complete breakdown of any 
loan or investment. 

• Depreciation Schedule — You can get a de- 
preciation schedule using any one of the 
following methods: straight line, sum of 
years-digits, declining balance, units of pro- 
duction, or machine hours. 

This package is available for both the PET 
and Apple. It requires the Apple 16Kand Apple- 
soft II BASIC. Order No. 0088A $7.95 or the PET 
8K. Order no. 0048P $7.95. 



MIMIC Test your memory and reflexes with 
the five different versions of this game. You 
must match the sequence and location of 
signals displayed by your Apple. You'll need 
an Apple with 24K and Integer BASIC. Order 
No. 0025A $7.95. 

HAM PACKAGE I This versatile package lets 
you solve many of the problems commonly 
encountered in electronics design. With your 
8K PET, you have a choice of: 
•Basic Electronics with Voltage Divider - 
Solve problems involving Ohm's Law, voltage 
dividers, and RC time constants. 
• Dipole and Yagi Antennas -Design anten- 
nas easily, without tedious calculations. 
This is the perfect package for any ham or 
technician. Order No. 0054P $7.95. 




SAHARA WARRIORS Enjoy all the gritty 
realism of desert warfare: 
•Commando - You must send your comman- 
does to trap a German general and cut him off 
from his troops. 

• French Foreign Legion -The battalions of 
the French Foreign Legion are in a race with 
the Arabs. Which side will get its battalions 
into the oasis in the shortest time? You and a 
friend can find out. 

Both programs in this package require an 
Apple 8K and Integer BASIC. Order No. 0080A 
$7.95. 



MORTGAGE WITH PREPAYMENT OPTION/ 
FINANCIER These two programs will more 
than pay for themselves if you mortgage a 
home or make investments: 
•Mortgage with Prepayment Option -Calcu- 
late mortgage payment schedules and save 
money with prepayments. 
•Financier- Calculate which investment will 
pay you the most, figure annual depreciation, 
and compute the cost of borrowing, easily 
and quickly. 

All you need to become a financial wizard 
with a 16K Apple and Integer BASIC. Order 
No. 0094A $7.95. 



CHIMERA If you think the legendary Chimera 

was hard to handle, wait until you try this 

package. Included are: 

•Dropoffs — You must make your opponent's 

men "dropoff" the board by moving and firing 

your own men. For one or two players. 

•Dots — Place your lines carefully as you try 

to build and capture the squares. For one 

player. 

•Batter-up - You and another player take 

turns at bat as your PET becomes both the 

pitcher and the umpire. For two players. 

•Reflex - Round and round the little white 

ball rolls. Only fast reflexes can guide it into 

the center of the maze. 

You'll almost be able to feel the Chimera's 

fiery breath as you play the games on your 8K 

PET. Order No. 0110P. $7.95. 




CODE NAME:CIPHER Enjoy that same feel- 
ing of intrigue and discovery with the Code 
Name: Cipher package. Included are: 
• Memory Game -Would you like to match 
your memory against the computer's? You 
can with the Memory Game. 
•Codemaster-One player types in a word, 
phrase, or sentence, and the PET translates 
that message into a cryptogram. The other 
player must break the code and solve the 
cryptogram in the shortest time possible. 
•Deceitful Mindmaster-This isn't your or- 
dinary Mastermind-type game. You must 
guess the five letters in the hidden code 
word. 

•Code Breaker - Cracking this code won't be 
as easy as cracking walnuts. You'll need to 
Ilex your mental muscles to win this game. 

II you want a mental challenge, then Code 
Name: Cipher is lor you. For the 8K PET 
Order No. 011 2P. $7.95. 



Instant Software Ina 



Ask your local dealer for the latest Instant 
Software catalog or write: Instant Soft- 
ware Catalog Dept., Peterborough, N.H. 
03458 

Copyright 1980 by Instant Software Inc 
Peterborough. New Hampsnue 03458 

All Rights Reserved 



Peterborough, New Hampshire 03458 603-924-7296 




BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 



ANNOUNCING the hdeomnidisk 65/8 




Now, you can "plug in" the latest in a success- 
ful series of flexible disk systems developed by 
HDEforthe KIM, SYM and AIM microcomputers. 
The OMNIDISK 65/8 is a complete system, 
using 8 inch soft sectored diskettes with a 
formatted (IBM Standard) capacity of 256K.Of 
course, a disk formatting function is included 
as are system supporting utilities for file 
renaming, disk packing, copy (dual systems) 
and others. 

TED, a full featured, line oriented editor is 
standard in KIM and SYM based versions to 
get you up and running on your project in a 
hurry. The AIM version uses the on-board 
editor. With the OMNIDISK 65/8 you can con- 



centrate on your problem, the disk supports 
you all the way. 

OMNIDISK 65/8 is available in an attractive 
walnut wood cabinet, or unpackaged for OEM 
applications in dual and single drive configura- 
tions. The HDE disk controller is a state-of-the- 
art 4'/2" by 6 1 /2" card electronically compatible 
with the 44-pin KIM-4 bus structure. The con- 
troller and disk-driver are designed to operate 
with the popular Shugart 801 -R and compatible 
devices. 

The OEM single drive is $1 1 95, the dual, $1 895 
and the dual in the walnut cabinet, $2200. 
Price is another reason to step up to the proven 
quality of an HDE system. 



HDE PRODUCTS - BUILT TO BE USED WITH CONFIDENCE 
AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



JOHNSON COMPUTER ARESCO 

Box 523 PO Box 43 

Medina. Ohio "14256 Audubon. Pa 19407 
216-725-4560 215-631-9052 



PLAINSMAN MICROSYSTEMS 

Box 1 7 1 2 

Auburn. Ala 36830 

800-633-8724 



LONE STAR ELECTRONICS 

Box 488 

Manchaca. Texas 78652 

612-282-3570 



PERRY PERIPHE 
PO Box 924 
Miller Place. NY. 1 
516-744-6462 



RALS 
11764 

_J 



6502 Bibliography: Part XIX 



Dr.William R. Dial 

438 Roslyn Avenue 

Akron, OH 4432C 



581. Compute, Iss. 1 (Fall 1979) 

Moser, Carl W, "Universal 6502 Memory Test," pgs. 32 ;33. 
A memory test program with ways to adapt it to PET, AP- 
PLE II, SYM, KIM, TIM, OSI 65D, Western Data Systems, 
ATARl', AIM, Super Kim. etc... 

Thornburg, Katie A. and David D., "Flying with PET PILOT," 

pgs.40-45. 
Kids and microcomputers at Peninsula School. 

Tulloch, Michael, "CORVUS 11A Disc Drive," pg. 61. 

How about a 9.6 megabyte memory on line? Compatible 
with the Apple DOS. Plugs into one slot of the Apple II. 

Victor, John, "Atari Computers: The Ultimate Teaching 

Machines?," pgs. 62-64. 
Discussion of the advantages of the Atari in educational 

use. 
Lindsay, Len, "The Evolution of a Magazine," pgs. 65-66. 
Discusses the history of the PET Gazette and its successor. 

Butterfield, Jim, "PET in Transition," pgs. 68-70. 

Discusses new modifications of the PET and how programs 
must be modified to accomodate the new systems. 

Isaacs, Larry, "Retrofitting ROMS," pgs. 76-77. 

How to replace the old PET Roms with the new units. 

Malmberg, David, "Screen Print Routine," pgs. 78-79. 

General utility to print the screen using the new PET 

printers. 
Anon., "Cassette Format Revisited," pgs. 80-81. 

Discussion of the PET Cassette format. 

Butler, Brett, "Trace for the PET," pgs. 84-85. 

TRACE allows you to see Basic executing, displaying each 

actual line as it is executed. 
Hunkins, Arthur, "8-Bit Digital to Analog Converter," pgs. 

90-91. 

A review of the MicroTechnology Unlimited DAC board for 

Hal Chamberlin's 4-part music program. 
Stuart, Chuck, "Using Direct Access Files with the Dual Drive 
Disk." pgs. 93-96. 

A tutorial on the Commodore 0240 Dual Drive Disk. 

582. Creative Computing 5, No 10 (October 1979) 

North, Steve, "Mountain Hardware SUPERTALKER," pgs. 
42-44. 

A review of this new accessory for the Apple II. 



Yob, Gregory, "Personal Electronic Transactions," pga 

180-183. 
Changes in the New PET; more on the structure of Basic 
variables; Simple variables, PET Basic Pointers, Discussion 
of cryptograms. 

583. The Target (Sept/Oct 1979) 

Roland, Don, "AIM 65 MOVIT," pgs. 2-3. 
A move program for the AIM 65. 

Butterfield, Jim. "Mortgage," pg. 4. 
Mortgage program for AIM Basic. 

Clem, Don, "Memory Display," pg. 5. 

A program to show what the 6502 is seeing at the output 

port of the AIM micro. 
Riley, Ron, "AIM BASIC," pgs. 6-8. 

All about AIM Basic. 
Anon.. "Statistical Analysis," pg. 10. 

Regression programs for the AIM. 

584. The Paper 2, Iss. 7 (September 1979) 

Busdiecker, Roy, "Think Negative!," pgs. 3-7. 

Negative numbers and subtraction are covered in this con- 
tinuing tutorial on binary numbers, with examples for the 
PET and 6502. 

Busdiecker, Roy, "Decimal to Binary," pg. 12. 

PET Basic program for converting Decimal to Binary. 

Busdiecker, Roy, "Warning: Prevent Tape Decay," pgs. 21-22. 
Use your PET tapes or at least rewind them occasionally to 
avoid print through on long undisturbed storage. 

Oakes, Peter L. A., "PLOT 2-MP," pgs. 23-25. 
A plotting program for the PET. 



585. Call Apple 2, No. 7 (September 1979) 

Wagner, Roger, "Speeding in Applesoft," pg.2. 
How to speed up Applesoft Subroutines. 

Winston, Alan B., "The Multi-Lingual Apple," pgs. 4-5. 
All about Pascal for the Apple. 

Hertzfeld, Andy, "Assembler Mini Reviews," pgs. 7-10. 
A Consumer's guide to Apple II Assemblers: Apple Mini- 
Assembler, TED/ASM, Micro Products (Moser/Bishop) 
Assembler, Randy's Weekend Assembler, Aresco 
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Assembler, LISA, Microproducts 6-Character Label 
Assembler, E.A.T. (Apple II Text Processing System), 6502 
Macro Assembler (Moser), UCSD Pascal Assembler, S-C 
Assembler, etc. etc.... 

Golding, Val J., "Peeking at Numbers," pg. 10. 

Demonstration of a couple of ways to print numbers in In- 
teger Basic larger than 32767 on the Apple. 

Verlaque, Richard, "Decimal Division/Integer Basic," pg. 16. 
Arithmetic program for Integer Basic on the Apple. 

Thing, Mike, "Applemash," pgs. 18-19. 

All about Modem Operation and the newly established 
"Apple-Crate," the Call-Apple message system ABBS. 

Hoyte, Jim, "Subroutine to Allow Prohibited Character in Str- 
ing Inputs," pg. 24. 

Routine lets you use commas, etc. in string inputs on the 

Apple. 

Williams, Rick, "Flash Cards," pg. 28. 
A Tutorial program for the Apple. 

Capella, Mark, "Hide," pg. 29. 

A program to hide program names from appearing in the 
catalog, but still permitting them to be recovered. 

Golding, Val J., "Poke Chr$ to screen," pg. 29. 

Routine to put characters on screen at specified locations. 

Dunmire, Darrell and Golding, Val J., "So Who Needs Ap- 
plesoft?" pg. 31. 

How to use string functions such as VAL, STR$, and CHR$ 

in Integer Basic on the Apple. 

Neulen, Bob and Golding, Val J., "Change Catalog to CC," pg. 
33. 

A routine to change catalog to CC for the 3.2 DOS. 

Corsetti, Vincent S., "File Restore," pg. 35. 

How to restore a program on a disk after you realize you 
just wiped out something you didn't mean to, on the Apple. 

586. Personal Computing 3, No. 11 (November, 1979) 

Anon., "Jim and Kay Weir Re-invent the Wheel," pg. 14. 
Discusses an application of an Apple II in the tire 
retreading business. 

587. Computer Cassettes Review, No 7 (Fall 1979) 

Purser, Robert Elliott, "Software for Apple, PET and TRS-80." 
Software Directory, cassette reviews, game reviews, and a 
list of "The Classics— the best of the past." 

588. Rainbow 1, No. 8 (September 1979) 

Ladbrooke, Brian D., "Running PIMS on the APPLE II," pg. 1. 
How to adapt this TRS-80 or PET program on Personal In- 
formation Management System to the Apple II. 

Rost, Randi J., "HiRes Color," pgs. 4-7. 
A tutorial. 

Heller, H. Lewis and Gothrie. Nelson, "Dollar Conversion," 
pgs. 7-11. 

Three programs for the Apple to convert Applesoft outputs 

to rounded off dollar and cents values. 

Buchen, Steven E., "Slow Down," pgs. 16-21. 
Two programs to slow down the list function of the Apple 

MacDougal, John, "Parallel Interface for the Apple," pgs. 
22-24. 

Hardware article on a parallel interface providing 2 output 

ports and 2 input ports. 

589. Interface Age 4, No. 12 (December 1979) 

Gilbert, Betsy, "The Computerized Artist," pgs 72-73. 

A description and evaluation of the Apple Graphics Tablet. 



590. Kilobaud Microcomputing No. 35 (November 1979) 

Lancaster, Don, "Lower case for your Apple II, Part 1," pgs. 
30-36. 

Expand the usefulness of your Apple with this inexpensive 

addition. 

Schmeltz, Leslie R., "The Apple Goes to Market," pgs. 70-76. 
Gather and analyze data from the stock market. 

Derfler, Frank J., "Boy, Did I Make a Killing!" pgs. 112-114. 
Real Estate profit guide program for the PET. 

Bajcz, Bill, "A 'Pentronics' System," pgs. 158-160. 
How to interface a PET to a Centronics 101 Printer. 

591. Southeastern Software Newsletter No. 13 (Oct. 1979) 

McClelland, George, "Pascal," pgs. 1-3. 
Discussion of Pascal for the Apple. 

Carpenter, Chuck, "Indexing Fundamentals, Part II," pgs. 4-6. 
A tutorial on indirect addressing including a routine to read 
and print a memory range. 

Anon., "Four HI-RES Programs," pgs 7-8. 

Several hires routines to frame pages of a program. 

592. Ohio Scientific's Small Systems Journal (1979) 

Anon., "OSI Programs." 
A collection of about 60 programs for OSI computers. 

593. The Cider Press 2, No. 5 (September 1979) 

Anon., "Disk of the Month," pg. 3. 
Seventeen more programs. 

Anon., "Serial Handshake Modification," pg. 7. 
The high speed serial interface card of Apple Computer 
Company can be made to run faster than 300 baud by sim- 
ple modification. 

Hockenhull, James L., "Better Sounding Apples," pg. 8. 
How to improve the sound of the apple by toggling the 
cassette output jack. 

Nareff, Max J., "Crossfooting," pg. 8. 

How to use crossfooting in tabulation of numbers. 



594. MICRO 17 (October 1979) 
Connolly, Rick, "Nicer Writer," pgs. 5-6. 
Eliminate wraparound in your Apple. 

Reynolds, William, "Disassembling the DOS 3.2," pgs. 7-10. 
Use the Apple DOS 3.2 more effectively with this informa- 
tion on its organization. 

Scanlon, C. H., "Hooking PET to Ma Bell," pgs. 11-13. 

Use your system as a terminal with an inexpensive modem. 

Mimlitch, Thomas R., "Spelunker," pgs. 15-24. 
An adventure type game for the Apple. 

DeJong, Marvin L., "6522 Timing and Counting Techniques," 
pgs. 27-39. 
Application of the 6522 versatile interface adapter. 

Chan Hark, "Card Shuffling Program for KIM-1," pgs. 41-42. 
Teach the Kim to shuffle the cards. 

Hoyt, Bruce, "How Do You Connect Peripherals to Your 
Superboard II?" pgs. 43-46. 

Some concise information on the configuration and use of 

the I/O Ports of the OSI Superboard II. 

Rowe, Mike (staff), "The MICRO Software Catalog: XIII," pgs. 
49-51. 

Nine programs are reviewed, mostly for Apples. 

Morris, E. D., "Hypocycloids," pgs. 52-53. 
A fast graphics program for the OSI. 
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MUSICAL COMPUTER I AND II 



Learn How to Read Music! 



Music lessons taught you in your home or at a studio 
cost from $7 each half-hour and up! Now, available to 
you Apple II owners, is an opportunity for you to have 
your private music teacher in the comfort of your own 
home. 

Written by a M.A. educator with over 20 years of music 
experience, this two-program cassette provides an alter- 
native to music education! 

These programs, utilizing high resolution graphics and a 
32KApple II, will make music learning fun and enjoyable 
for the entire family! 

Apple II is a TM ol Apple Computers. Inc. 



COMPUTER 

APPLICATIONS 
TOMORROW 



P.O. Box 7000-363 
Palos Verdes, CA 90274 



Name: 

Address: 

City, State, zip. 



Send Check or Money Order for $34.95 plus $1.00 

postage and handling. 

(CA residents add 6% sales tax) 



OSI OS! 

SOFTWARE 

FOR 

OHIO SCIENTIFIC 



Over 50 programs for 


CI, 


C2, C4 


come with listings and compete d 


GAMES - 4K - Tap* 






CHESS FOR OSI - 






specify system 




$19.95 


STARFIGHTER 




5.95 


Real time space war. 






SEAWOLFE 




5.95 


Floating mines, three 






target ships, etc. 






LUNAR LANDER 




5.95 


With full graphics 






TEN TANK BLITZ 




9.95 


A sophisticated real time 




tank game. 






8K GAMES 






BACKGAMMON 




9.95 


BLACKJACK 




6.95 


Plays all Vegas rules 






Add $1.00 each for Color/ Sound 



& Superboard, on tape and disk. All 
ocumentation. 

UTILITIES 

C1P CURSOR CONTROL $9.95 
gives real backspace, one key 
screen clear, and midline editing 



5.95 
12.95 
Variable table 



Our $1.00 catalog has free game 
and utility listings, programming 
hints and a lot of PEEKs and 
POKES and other stuff that OSI 
forgot to mention - and a lof more 
programs for sale. 



RENUMBERER 

SUPERUTILITY 

Has Renumberer, 

maker and Search 

BUSINESS 

SMALL BUSINESS ANALYSIS 15.95 

Does profit and loss, quick ralio, 

breakeven analysis and more. 13 

pages of documentation. 

STOCK PORTFOLIO 6.95 

Keeps track of your Investments 



DISKS 5" COLOR/SOUND $29.95 
DISK 1. STARFIGHTER, ROBO- 
TANK, SEA WOLFE, BOMBER. 
TEN TANK BLITZ 
DISK 2 BREAK THROUGH, LUNAR 
LANDER, ALIEN INVADER, KILL- 
ERROBOTS, SLASHBALL 



AARDVARK 
1690 Bolton, Walled Lake, Michigan 48088 • (313) 624-6316 



PET TWO-WAY RS-232 

and PARALLEL 
OUTPUT INTERFACE 




SADI - The microprocessor based serial and parallel 
interface for the Commodore PET. SADI allows you to 
connect your PET to parallel and serial printers, 
CRT's, modems, acoustic couplers, hard copy termi- 
nals and other computers. The serial and parallel 
ports are independent allowing the PET to communi- 
cate with both peripheral devices simultaneously or 
one at a time. In addition, the RS-232 device can com- 
municate with the parallel device. 



Special Features for the PET interface include: 

Conversion to true ASCII both in and out 

Cursor controls and function characters 

specially printed 

Selectable reversal of upper and lower case 

PET IEEE connector for daisy chaining 

Addressable - works with other devices 
Special Features for the serial interface include: 

Baud rate selectable from 75 to 9600 

Half or full duplex 

32 character buffer 

X-ON, X-OFF automatically sent 

Selectable carriage return delay 
Special Features for the parallel interface include: 

Data strobe - either polarity 

Device ready - either polarity 

Centronics compatible 

Complete with power supply, PET IEEE cable, RS-232 
connector, parallel port connector and case. Assembled 
and tested. 

SADIa(110VAC)$295 

SADIe (230VAC) $325 



CONNECTICUT microCOMPUTER, Inc. 

ISO POCONO ROAD 

BROOK FIELD, CONNECTICUT 06804 
TEL- (203) 775-9659 TWX: 710-456-0052 

VIS* ANO M/C ACCEPTED - SEND ACCOUNT NUMSCft. EXWRATIOM DATE ANO SltN ONDU. 

A00 IS «« ONDE" FC* SHIFFINi ft HANC4JN* - FONEIttN OflOCRS AOO 10% FC* AIN POSTAOE. 



STOCK MARKET ANALYSIS PROGRAM 
DJI WEEKLY AVERAGE 1897- DATE 

ANA1" (ANALYSIS 1) is a set of BASIC Programs which enables the user to 
perform analyses on the Dow Jones Industrial weekly average data. From 6 
months to 5 years ot user selected DJI data can be plotted on the entire screen 
in one ot 5 colors using Apples' High Resolution capabilities. The DJI data can 
be translormed into different colored graphic representations called transforms 
They are: user specified moving averages; a least squares linear fit (best straight 
line): filters for time, magnitude, or percentage changes: and user created rela- 
tionships between the DJI data, a transform, or a constant using •.-.*.! operators. 
Colored lines can be drawn between graphic points Graphic data values or 
their dales of occurrence can be displayed in text on the screen Any graph or 
text can be oulputted to a users printer The Grid Scale is automatically set to 
the range of the graphs or can be user changed As many colored graphs as 
wanted can be plotted on the screen and cleared at any time. The user can code 
routines to operate on the DJI/transform data or create his own disk file data 
base. ANA1 commands can be used with his routines or data base. An Update 
program allows the user to easily update the DJI file with current DJI weekly 
data. 

The ANA! two letter user commands are. CA = Calculate, no graph CG = Clear 
Graphs, leave Grids CK = Checking out program, known data CO ' Color of next 
graph (red. green, violet, white, blue). CS ' Clear Screen. DL = Draw Line between 
points. Fl = Filter data for time, magnitude, or percent change. FU = Data, trans- 
form, or constant Function with *.-.x./ operator. GO : Graphic mode, display 
all Graph Data on screen. GR ■ Graph data to screen GS ■ Set Grid Scale. HE = Help, 
summary of any commands usage. LD = Load Data from disk file from inputted 
date to memory. LG = Leave Graphs, automatic Grid rescaling. LO = Look, select 
a range of the LD data and GR; All commands can now be used on this range 
LS = Least squares linear fit of the data MA = Moving Average of the data NS ■ 
No Scale, next graph on screen does not use Grid Scale. NT = No Trace. PR ■ User 
implimented Printer routine. TD = Text mode, display Text Data on screen. Tl ■ 
Time number to date or vice versa TR = Trace. TS ■ Text Stop for number of lines 
oulputted to screen when in TD. U1/U2 ■ User 1/2 implimented routines VD = 
Values of Data outputted in text VG = Values of Grid: low/high/delta. VT » Values 
of Transform outputted in text. 



APPLE* II. 48 K. APPLESOFT 
ROM CARD. DISK II DOS 3.2 
ANA1 DISK & MANUAL . . . S49.95 
(CA residents add 6% sales tax) 



GALAXY 
DEPT. A02 
P.O. BOX 22072 
SAN DIEGO. CA 92122 



• Software Review in Call-A P.P.L.E. (2/80): "An example of an excellent piece ol 
software exploiting most of Apple Ms major features " Overall Rating = 92.1 

■ Software Review in Apple Orchard (3/80): "A remarkably flexible approach to the 
analysis and plotting ol any lime series data." Overall Rating - 85.7 



DISCOUNT DATA PRODUCTS 

BASF 5%" DISKETTES: 
$34.50 PER BOX OF 10 

HIGHEST QUALITY DISKETTES AT A 
BARGAIN PRICE! LABELS AND WRITE- 
PROTECT TABS INCLUDED. 



VINYL DISKETTE HOLDERS 
FOR NOTEBOOKS 

THE IDEAL WAY TO STORE DISKETTES. EACH 
VINYL PAGE HOLDS TWO DISKETTES AND IN- 
CLUDES A POCKET FOR EACH DISKETTE'S LABEL. 
SAFELY KEEP UP TO 40 DISKETTES IN A SINGLE 
1" 3-RING NOTEBOOK! 

$4.95/SET OF 10 



MARKETING YOUR OWN SOFTWARE? 
DDP OFFERS DEALER & SOFTWARE HOUSE 
DISCOUNTS ON NOT ONLY THE ABOVE 
ITEMS, BUT ALSO THE FOLLOWING 
PRODUCTS: 

9" x 12" ZIP-LOCK BAGS FOR PACKAGING & 
DISPLAY OF SOFTWARE. 
CORRAGATED MAILERS TO SHIP TO USERS 
OR DEALERS! 
SEND FOR FREE INFORMATION AT: 

DISCOUNT DATA PRODUCTS 

P.O BOX 19674-M 

SAN DIEGO, 92119 

(ADD $1.00 SHIPPING/HANDLING CHARGE TO ALL ORDERS^ 



KIMEX-1 HERE'SANEATCOMBINATION 



IDEAL FOR DEDICATED INDUSTRIAL OR PERSONAL APPLICATION 

FEATURES 



PLUGS DIRECTLY INTO AND 
COVERS UPPER HALF OF KIM-1 . 
EXPANSION FINGERS CARRIED 
THROUGH FOR FURTHER 
EXPANSION. 
I/O-POWERFUL 6522 VIA 
PROVIDED. 

(VERSATILE INTERFACE 
ADAPTER) 

16 BI-DIRECTIONAL I/O LINES 
4 INTERRUPT/HANDSHAKE 
LINES 

2 INTERVAL TIMERS 
SHIFT REGISTER FOR SERIAL- 
PARALLEL/PARALLEL-SERIAL 
OPERATIONS. 

RAM-SOCKETS PROVIDED FOR 
4K RAM CONTIGUOUS WITH KIM 
RAM. 

(LOW POWER MOSTEK4118 
1KX8S) 
COMPLETE DOCUMENTATION 



EPROM-SOCKETS PROVIDED FOR 

8K EPROM. 

(INTEL 2716 2KX8s) 

BLOCK SELECT SWITCHES FOR 

EPROM. 

EPROM USABLE IN ANY ONE OF 

FOUR 8K BLOCKS FROM 8O00H. 

AUTOMATIC RESET ON POWER- 
UP AND SWITCH SELECTABLE 
INTERRUPT VECTORS. 
PERMITS UNATTENDED 
OPERATION. 

LOW POWER CONSUMPTION- 
5V AT 300 Ma. FULLY LOADED 

BUFFERED ADDRESS LINES 

HIGH QUALITY PC BOARD. 
SOLDER MASK 

ASSEMBLED AND TESTED 



APPLICATIONS 

PROM. RAM AND I/O EXPANSION ON ONE BOARD HAVING MANY INDUS- 
TRIAL/HOME APPLICATIONS FOR DATA ACQUISITION, PROCESSCONTROL. 
AUTOMATIC CONTROL OF FURNACE, SOLAR HEAT. LIGHTING, APPLI- 
ANCES, ETC 



PA RESIDENTS INCLUDE 6% STATE SALES TAX 

DIGITAL ENGINEERING ASSOCIATES 





P.O.BOX207 • BETHLEHEM, PA 18016 



$139.95 

LIMITED TIME 1K RAM FREE ! - . 



• KIM IS A REGISTERED TRADEMARK OF MOS TECHNOLOGY, INC. 
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£ Software for Apple II i 

i?V '* 

Star Attractions: 



Prolessional Word Processing lets you edit, move, delete, 
lind, change and repeat any body ot text, merge and save on disk. Does 
righl-justilied margins, centering, page numbering. You can enter name 
& address onto form letters when printing. Edit and merge any text disk 
tile-even tiles not created by WRITE-ON-and spool text to disk for let- 
ter printing or editing. Chain up to 100 tiles in a single printer run. 
Needs Applesoft and 32K. 
On Disk with operating manual $99.50 

Here's a powerful data file manager giving you two pro- 
grams-FORMAT & RETRIEVAL. It handles everything from phone lists 
to legal abstracts. You can design your own data structure with up to 
500 characters per record and up to 15 searchable fields in any com- 
bination. Needs 32K. On Disk $49.95 

Has all the same features of FILEMASTER I plus allows 
for totaling, advanced math routines, more powerful print formatting, 
larger data fields, and disk-to-disk transfers $99.50 

(Edu-Ware) Six programs form a unique epic game series. 
Multi-faceted simulation of life in interstellar society. You and opponents 
must make life & death decisions. Keeps track of your progress from 
one game to next. Needs 48K and Applesoft ROM. Disk $29.95 

or our A collection of 49 programs 
for 16K Apple. Everything from Logic to action games. Only a buck a 
game. Specify I or II. 
Price each: Tape $49 Disk $54 

This original, full-function game is the same as the one 
developed for large mainframes. Fight off pirates and vicious dwarfs. 
700 travel options, 140 locations. 64 objects. Needs Applesoft ROM 
& 48K. Disk $29 95 

Use stock numbers, description, vendor, record of 
purchase and sales date, amount on hand, cost & sell price, total value. 
Holds up to 300 items. 

Disk S40 

+With Bill of Materials: Disk $50 

Cross file lor phone lists, bibliographies, recipes. Run up 
lo 9 lines of 40 columns each. Search by item anywhere. 
Disk $20 

Conway's equations on 296x180 screen. A 
mathematical simulation to demo population growth with birth, death and 
survival as factors. Tape $1" 

9 gambling games: Roulette, Blackjack, Craps, 
Horserace. Yahtzee. Keno, Slot Machine, Poker, and Acey-Oucey Needs 
16K. Tape $29.95 Disk $34.95 

You in your space capsule battle against the 
computer's saucer ... in hi-res graphics. Tape $12 

Diagnostic routine to check range of memory. Indi- 
cates faulty addresses, data in memory cell, and laulty data. Tape .... $5 



Music synthesis composes original Irish jigs. Enter your 
own music and save on tape or disk. Includes 3 Bach fugues. 
Tape $10 

(Edu-Ware) This package combines COMPU-READ-five 
speed reading programs; three PERCEPTION games where random 
shapes and sizes must be matched; and STATISTICS for computing 
Mean, Variance, Standard Deviation, and much more! Needs Applesoft 
ROM. Disk $39.95 

(Hayden) Here's the program that came in third against 
the big machines (mainframes and maxis) at the 9th North American 
Computer Chess Championship and placed first in the European 
Microcomputer Chess Championships! Has seven levels ot play with 
Levels - 3 playing in tournament time. Need a challenge? This is it!! 
Tape $29.95 Disk $34.95 

(Programma International) This animated simulation 
ot a major league baseball game is for two players. The scoreboard is in 
the lower left of screen with the "throw pointer" for directing a throw 
in the lower right corner. Written entirely in machine language, the 
action is quick and smooth, making it the finest simulation of its kind. 
Tape $15.95 

This digitizer drawing board, complete with a powerful 
software package on disk, lets you create any picture in color with high- 
resolution graphics. It's ideal for mass graphics. You can trace, edit, 
save and recall what you draw. It's a simple-to-use system for students, 
artists, engineers and graphic programmers. Has an 8 1 A"x11" working 
area. New applications added include: »Text Writer adds text to your 
pictures. You control size, color and direction ot text; •Electronic Draw- 
ing lets you create schematics and includes commonly used symbols for 
transistors, OPAMPS, and FETS; 'Distance/Area lets you compute 
distances on maps or area of any frame. Applesoft ROM and 

32K required $249.95 

Add $5 I U.S.) or $10 (Foreign) lor shipping. 

Everything you wanted to know about the Apple 
Monitor but couldn't figure out. All the PEEKS, POKES, and CALLS ex- 
plained in an easy-to-understand form, written in plain English. 
Only $9.95 

Don't see what you've been looking for, here? Then write for our FREE 
SOFTWARE CATALOG. We're saving one just for you! 

To order, add $2 (U.S.): $5 (foreign) tor shipping. California residents 
add 6% sales tax. Sorry, we cannot ship to P.O. Boxes. VISA/MASTER- 
CHARGE and BANKAMERICARD Welcomed! 






Golden Plaza Shopping Center, Dept. 1A 

9719 Reseda Blvd., Northridge, CA 91324 

Telephone: (213) 349-5560 

+ =Apple Plus compatible 



what's new 



from 




JOURNEY 




You are about to em- 
bark on a very hazard- 
ous but profitable 
JOURNEY. The Apple 
is your eyes, ears, 
arms and legs. You 
can "GET" an object that is laying on the ground 
and you can travel North, East, South, West. Up 
and Down. You need to acquire tools as you 
JOURNEY forth and score precious points to 
become a GRANDMASTER JOURNEYER. 
JOURNEY REQUIRES 48K and loads on any 
Apple. 

JAB-879 $19.95 



BASEBALL FEVER 

Catch the fever with this ball game that never 
gets rained out. You are the pitcher, batter and 
manager for your team. As manager you control 
line-ups, pitching staff and base stealers. The 
optional sound effects enhance the colorful 
animation. When the game is over you can save 
the game statistics to tape or disk and you are on 
your way to a winning season. Requires 32K or 
48K with disk. INTEGER BASIC 

BFM-879 $12.95 
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Play a true competitor 

of this ancient game 

of territorial strategy. 

By flanking a line of 

the opponents men 

you "flip" them over 

to your own color. Be cautious though, for 

OTHELLO will never say die until the last move. 

OTHELLO is available for both INTEGER BASIC 

and APPLESOFT, and loads in 16K. 

OHS-279 $14.95 



CONEY ISLAND 

Enjoy the excitement of an amusement park at 
home. CONEY ISLAND has 22 varieties of 
paddle games that are fast. Written in FORTH II 
for speed, and using the beautiful colorgraphics 
of the Apple, one or two can play the most 
exciting paddle games yet written. CONEY 
ISLAND can be loaded on any Apple. 16K 

CIW-879 $12.95 



FORTH II 

FORTH II is an extremely well documented 
version of the Forth language that has been in 
use since the late 1960's. 
It is many times faster than basic and is easy to 
use. Many of its features are as follows: 

NEW FEATURES 

•RUNS ON ANY APPLE II COMPUTER 

"(24K minimum) 

•SUPPORTS DOS 3.2 

•CONTROL C BREAK AND CONTINUE 

•COMPATIBLE WITH AUTOSTART ROM 

•"SAVE IT" FILE FOR CUSTOMIZING SYSTEM 

STANDARD FEATURES 

•INHERENTLY STRUCTURED LANGUAGE 
"DISK BASED EDITOR AND COMPILER 
•COMPLETE INSTRUCTIONAL REFERENCE 

MANUAL 
•EXCELLENT EXECUTION SPEED AND 

MEMORY EFFICIENCY 
•SUPPLIED ON MASTER DISKETTE 
•VERBS FOR GRAPHICS, GAME I/O, SOUND, 

DISK AND TAPE I/O 

FOG-279 $49.95 



If you have the same problem as Arnold Zieback 
with constantly changing paddles and PENS, 
then you too need PADDLE PLUS. This extender 
plugs into your game I/O port and is 
conveniently secured for easy access. 

ppa-180 $14.95 

WHERE TO GET IT: Look for the SOFTAPE 
Software display in your local computer store. 
Apple dealers throughout the United States, 
Canada, South America, Europe and Australia 
carry the SOFTAPE Software line of quality 
products. 

If your local dealer is sold out of SOFTAPE 
Software you can order it direct from us by check 
or Visa/Master Charge. If you have any 
questions please call us at: 



•213-985-5763 



Or mail your order to the address below. We'll 
add your name to our mailing list for free 
literature and announcements of new products. 

SOFTAPE! 

10432 Burbank Blvd. . North Hollywood, CA 91601 



BRIGHT PEN 

What is the difference between a light pen and 
the BRIGHT PEN. Intelligent software and 
extensive documentation. The software will help 
you to calibrate your system for optimum 
operation. The documentation details the 
BRIGHT PEN DRIVERS and how they are 
appended to your INTEGER BASIC programs. 
BRIGHT PEN includes documentation booklet, 
two cassettes and, of course, the BRIGHT PEN. 

BPE-279 $34.95 



ceror 



With DUMP-RESTORE you will be able to bjl 
up your disk files to cassette and restore tb^~ 
disk. This allows you to relocate disk space^or 
maximum efficiency and speed. The programs 
are saved and restored individually or the entire 
disk can be saved and restored. DUMP- 
RESTORE loads with INTEGER BASIC and 
requires 32K. 
DRG-879 $14.95 



Tired of hitting reset by mistake? If so RESET 
GUARD will solve the problem. RESET GUARD 
is a hardware package that plugs directly into 
your Apple. It protects your programs because it 
will only Reset if hit twice in one second. Guard 
your Apple and your sanity with RESET GUARD. 



RGA-180 $34.95 




